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THE FIRST SIX 

TRICKY TUTORIALS™, 



There are many things lhat the ATARI computers can do either belter 01 easier than other small computers The following series 
of programs is designed lor anyone who is at least lamlliar with BASIC programming. What each tutorial otters IS similar to an 
extensive magazine article with all discussion in as simple language as is possible, plus you get MANY examples already typed in 
and running There is little overlap in what is taught, so each tutorial will further convince you that buying an ATARI was the right 
choice! 



»1 DISPLAY LISTS 

This program teaches you how to alter the program m the 
ATARI that controls the formal of the screen For example 
when you say graphics 9 the machine responds with a large 
graphics 8 area at the top of the screen and a small text area 
at the bottom Now. you will be able to mix various modes on 
the screen at the same time Just think how nice your pro- 
grams could look with a mix of large and small text, and both 
high and low resolution graphics The program has received 
rave reviews for the way it does all the calculations of (he dif- 
ficult things (like counting scan lines) You will guickly be able 
to use the subroutines included in your own programs 16k 
memory required lor tape - 24k for disk 



»2 HORIZONTAL A VERTICAL SCROLLING 

The information you put on the screen, either graphics or 
text, can be moved up. down or sideways This can make for 
some nice effects You could move only the text on the bot- 
tom half of the screen or perhaps create a map and then move 
smoothly over it by using the joystick Includes 18 examples 
with several using a small machine language subroutine for 
smoothness As always, our examples can easily be used in 
your own programs 16k tape-24k disk. 



#3 PAGE FLIPPING 

Normally you have to redraw the screen every lime you 
change the picture or text Now you can learn how to have the 
computer draw the next page you want to see while you are 
still looking at the previous page, then flip to it instantly You 
won't see it being drawn so a complicated picture can seem to 
lust appear Depending on your memory size and how compli- 
cated the picture, you could flip between many pages, thus 
allowing animation or other special elfects. We have found 
lhat many people skip this tutorial either because it sounds 
hard, or they think they will never use it The basic method 
takes only 12 lines and the usefulness is infinite. 16k tape -24k 
disk. 



#4 BASICS OF ANIMATION 

This program shows you how to animate simple shapes 
(with sound using the PRINT and PLOT commands, and also 
has a nice little PLAYER/MISSILE GRAPHICS game you can 
play with The P/M example is well commented and will get 
you started on this complicated subject (more fully explained 
In TTrtS) This would be an excellent way to start making your 
programs come alive with movement! Recommended for be- 
ginning users i 6k tape - 24k disk 



tt5 PLAYER MISSILE GRAPHICS 

This is the big one! We start by showing how tocreate a sim- 
ple shape called a player, then take you through over 25 exam- 
ples until you have created a complete business application 
and a small game. Also, we include a utility to create the 
shapes and choose the colors, then store the players and mis- 
sies in data statements Later YOUR programs bring ihese 
shapes back in when needed, Plus much more! 32k tape or 
disk 



#6 SOUNDS & MUSIC 

One of the famous programmers for our great machine oi- 
lers this one through us. Unless you have spent many hours 
experimenting with the four voice channels, you will learn alot 
from this one! The nicest part is the MANY examples of special 
sound effects that you can refer to when you need them for a 
program or to impress a friend 16k tape - 24k disk. 



Many other fine programs are available from: 
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4565 Cherryvale Avenue 
Soquel, Ca. 95073 
(408) 476-4901 
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Intr-oduct i on To 

S<aniia Cr-uz 

So-F tware 

Hi ! First let us thank you for purchasing our programs. We want to 
start out by telling you a little about ourselves and our company. 
Santa Cruz Educational Software is the result of several local 
programmers who initially purchased the ATARI computer as a home 
machine around the time the 800 was first sold. At that time, and even 
today, we found a lack of information about how to use the power of 
the machine. As you have seen in a few of the better programs being 
sold, the ATARI can do more than any other computer in it's price 
range, but how could we learn the many "tricks" that were contained 
withen the machine?? 

Well, our local club, although it had several HUNDRED members, 
ignored most of our questions. Fortunately other clubs across the 
country have some excel lant newsletters full of programs and facts. 
Also, ATARI (tm) has given we owners the Operating System and Hardware 
manuals. Finally, many magazine articles and several books have been 
publ ished. 

All this is great for programmers, but what about the average 
owner who doesn't understand much of what is said in the magazines? 
Even as a programmer, I have to spend many hours studying all of the 
information that is now available inorder to understand some of unique 
things about our machine. 

The story ends when I asked some local club members to submit 
their best programs for us to offer to others at the lowest possible 
price, ie. a price WE WOULD be glad to pay to buy these programs. I 
myself wrote most of the TRICKY TUTORIALS (tm) and the MASTER MEMORY 
MAP. Now, others across the country have offered programs for us to 
sell, all meeting the goal of: minimal on fancy artwork and a few 
spelling errors, but worth every penny. 

Write us with new ideas or memory locations to share, and if it's 
something we can use, a reward will be sent back to you as soon as we 
can. Also, please remember that this is only a part time business. We 
are usually late in getting new programs out due to last minute 
debugging at midnite(no kidding, I do all this after my regular job). 
This doesn't mean we don't care! 

My thanks to all of you who have raved about the Tutorials. I will 
try to keep a new one comming out every three months or less, and also 
to get out those bugs that remain. 

ROBIN ALAN SHERER (owner, programmer, and janitor) 
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TAPE. 



First, if you haven't cleaned your tape recorder heads lately, 
please do so now. SEE ANY STEREO SHOP FOR THE RIBHT TOOLS. Place the 
tape with the label side up in your recorder. Make sure it is rewound 
and also reset the counter to 0. Push PLAY on the recorder. TYPE 
RUN"C:" AND PRESS RETURN. If this doesn't work you might try CLOAD. We 
also include a backup program on the shorter programs we sell (not the 
TUTORIALS), and these sometimes require CLOAD. If the program won't 
start to load, try positioning the tape forward or backward a little 
bit at a time. The easiest way would be to LISTEN to the "noise" on 
the tape with a regular tape recorder. When you find the steady tone 
that lasts for about 8 seconds, you have the beginning of each 
program. We recommend you write down the number on your recorders 
counter as each program starts. This will make it easier to find each 
part later on if needed. We occasionally get a bad tape from our 
supplier, so i f yours won't load on both your own 410 and a friends 
(or your DEALERS), call (408) 476-4901 for a replacement. 

Once the program starts, it will load in the remaining parts. The 
multiple parts are needed so that machines with only 16k can enjoy the 
TRICKY TUTORIALS. With more memory you can go beyond these simple 
tutorials. After each part, the computer will beep. This is your 
signal to press return to load in the next part. Some newer programs 
will start the next part without pressing return. Most programs will 
run themselves when done loading. 

The reason for several methods of running tapes is that as we 
improve the programs, we change the masters; however, the manuals are 
printed in large amounts, so changes are VERY hard to get into your 
manuals! 

***«**««*«** t**t*t**»ttt ************** 



DISK. 



To load S« run the disk you first have to turn on the drive. When 
the busy light goes out place the disk in the drive. Now turn on the 
computer with the basic cartridge in place and the program will load 
each part and run by itself (aren't disk drives nice!). 



- ii - 



DISPLAY LISTS 



Display Lists consists of a set of 
programs that are simple to use, but 
deal with a complicated subject. Until 
now, only a few programmers have 
understood enough about modifying the 
ATARI'S Display Lists. Using the 
examples and manual inside, you have 
only to follow a few simple directions 
to create your own custom screens . These 
screens can consist of any of the 
ATARI'S regular Text and Graphics modes 
plus 5 new ones. Imagine up to 20 modes 
on the screen at once. ...real special 
effects in all your programs! 

This program requires very little 
actual programming experience. It is 
especially designed to allow you to use 
it now, and go back and learn the actual 
method within the program at any time in 
the future . 

REQUIRES 16K TAPE OR 24K IF YOU HAVE 
DISK. 
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TRICKY TUTORIAL #1 
I> I Sl=-l_*=fc Y LISTS 

by 
Rob i n Sherer 

I NTRODUCT I OM 

Display List modification is a large and complex 
subject. If you have seen any of the articles recently 
published in the hobby magazines on the subject, you know 
you could never learn to modify your own custom Display 

Lists or could you? What if we let the computer do most 

of the work? 



-tie* Load 



TAPE 



Place the tape in your recorder, label side up. Make 
sure the tape is rewound, and reset the counter to zero. 
Push PLAY on the recorder, type CLOAD and press RETURN. 
When the READY prompt appears, type RUN and press RETURN. 
If the program won't start to load, try positioning the tape 
forward or backwards a I ittle. A I ittle trick to find the 
beginning is to first, turn your volume UP. Then POKE 
54018,52 to start the cassette motor. Listen to the "noise" 
on the tape. When you find the high-pitched, steady tone, 
you have the beginning of the program. We recommend you 
write down the number on your recorder's counter as each 
program starts, this will make it easier to find each part 
later on. POKE 54018,60 to turn the cassette motor off. 



DISK 

To load and run the disk, first turn on your disk drive. 
When the busy light goes out, place the disk in the drive. 
Now turn on the computer, with the BASIC Cartridge In place 
and the program will load each part and run by itself. 

Any defective tapes or disks should be returned to: 

Educational Software 

4565 Cherryvale Ave. 

Soquel, CA. 95073 

© 1981 EDUCATIONAL SOFTWARE 
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SO YOU WANT TO LEARN ABOUT 
DISPLAY LISTS! 



To use this program you actually don't need to 
understand most of the information we will talk about. Feel 
free to just run the examples and play with creating your 
own special screens. Later, when you want to understand more 
about what you are doing, come back and read the booklet and 
practice modifing the examples. You can't hurt the machine 
by changing the numbers in the Display List. At the worst, 
the machine might "go to sleep" (the keyboard will not 
respond ) if a wrong number is POKEd Into memory. Then 
you'll have to press RESET or turn off the machine and 
reload in the program. This is one reason tape users should 
always keep track of the number on their recorder's counter 
for each program so that they can easily reload a program. 

This Tutorial doesn't go to the other extreme of 
dificulty either. MANY details about DL's are not mentioned. 
The lesson is designed to explain all the basic's of the 
subject as well as offer examples already typed In for you! 
(I've got to keep those two recycled beer c ans , Protot y pe & 
Mototype busy doing something!) If you don't practice 
modifing the examples with your own ideas, DL'S probably 
won't make sense to you. 

NOTE - From this point on we are going to refer to 
Display Lists as DL so please don't get confused. 

What Is a DL? 



Why did you buy this program? A surprising number of 
people buy my tutorials because they want to know how to use 
the special tricks that the ATARI can do, not really 
understanding what these tricks are. With this in mind, 
we'll start out this lesson by explaining some basics of 
what a Display List Is. EXAMPLE 9 shows one suggested use, 
but you can come up with you own unique ideas! 

The ATARI has a special chip inside it to take the 
Information from within its memory and put it on the screen. 
This chip is called the ANTIC. This chip is actually a 
microprocessor by itself and thus has a set of instructions 
to program it.. ..just like the main microprocessor In the 
ATARI, the 6502. The difference is we don't use BASIC or 
Assembly language to program it. Now stop and think a 
moment, I said TWO microprocessors. This gives the machine 
much more capability than an Apple or Pet (go brag to your 
friends for a moment then come back ) 

The Display List is what the ANTIC looks at to tell the 
machine how to treat the screen (plus other things not 
mentioned in this lesson): 
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The Display List Is what the ANTIC looks at to tell the 
machine how to treat the screen (plus other things not 
mentioned in this lesson): 

1)What Graphics and text modes to put on the screen. 

2)Where to get the data to put into these mode 
areas . 

Now don't worry that the subject is too complex. There 
are only four types of Instructions, and these are POKEd 
Into memory using a few basic statements. Let's review - The 
DL says something to the computer that means: "Put on the 
screen some Graphic Mode 0, now some Mode 7, then some Mode 
again, and finally some Mode 2. Oh, by the way, get the 
data from this location in memory". 
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Here is another idea to learn about. We 
talk about both Mode Lines and Pixel Lines. To 
Line, simply look closely at the screen of y 
Those tiny dots you see are pixels, so a row of 
the screen is called a Pixel Line. The Mode Lin 
to understand. If you look at some regular Mode 
white letters with blue background) you can 
letters are made up of eight rows of pixels (i 
space at the top and bottom). Now look at the c 
mode 0. Under the value called "Pixel Lines per 
it says "8", meaning a character In GR.O tak 
pixels. You'll use this value later to help 
setting up the DL. To review (see Fig.1), a mod 
8 takes only 1 row of pixels, and O.S. mode 5 ( 
GR. mode) takes 16 rows of Pixel Lines, thus, a 
your DL fills up the screen 16 times faster tha 
8 line (O.S. mode 15.... look at the chart!). Wh 
a mode into the Display List In the example 
remember if you take out a mode line that is ma 
Pixel Lines, you should replace it with severa 
that use less pixels per line. This will kee 
number of Pixel Lines drawn on the screen th 
standard number of Pixel Lines drawn on the sc 
If you puT too few Pixel Lines on the scree 
picture will "shrink" with just black on 
Likewise, too many will place part of the pic 
screen and may cause the picture to "roll", whi 
stopped with the Vertical Hold controls on you 
practice it will all make sense! 
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EXAMPLE 1 



If you haven't already, please RUN Example 1. This 
I I Tt I e program allows you to look at any of the standard GR. 
mode DL's, including the new (to the United States) GT I A 
modes 9, 10, & 11. Let's try Inputting a 0. The numbers that 
result from the example are those of a standard smal I text 
screen. You read the numbers a row at a time. 



EXAMPLE OF 
GRAPHICS MODE 



1 12 < 8 b I ank I i nes 

1 12 < 8 b I ank I I nes 

1 1 2 < 8 b I ank I i nes 

66 < LMS (includes first line of screen; 

ie. 64(LMS) + 2(0. S. Mode) 

64 < Low Byte\ 

combine to get location of Data 
for upper left corner of screen 
156 < High Byte/ 

2 < O.S. mode line (same as GR.O) 

2 < . S . mode I i ne 

2 < . S . mode I i ne 

2 < (and all of the other 2's) O.S. mode line 

65 < Says end of Display List, go to the 

Display List at next location 

32 < \ 

Combine=Low Byte + High Byte * 256 
156 <---/ 



FIGURE 2 



The first three numbers are 112. Look at Figure 2. You'll 
see that "112" tells the computer to place 8 blank lines on 
the screen, starting at the top of your set. Three of these 
commands causes 24 blank lines at the top of the screen. 
This number of blank lines is standard. They allow for the 
difference in individual TV sets, called overscan, so that 
your whole picture can be seen. 
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The next number, "66", is the LMS instruction. LMS means 
Load Memory Scan. LMS tells the computer to "Go find the 
data for the following modes starting at the address in 
memory in the next two numbers". We will always use for this 

number(LMS) the value of 64++he O.S. Mode number this 

means for our GR.O DL we need 64+2, or 66. Remember that the 
chart gives GR.O = O.S. Mode 2. The next two numbers will be 
the location of the start of the data that is to be put on 
the screen. To find the value for your machine (if your 
interested) take the second number of the address(high 
byte), multiply it by 256 and add the first number (low 
byte). For example, if the high part of the number was 132 
and the low part was 192 then the start of the screen data 
would be at 256*132+192 which equals 33984. If you POKEd a 
number into this location that was the value of a letter, 
number, or Graphics character, you would see it appear at 
the upper left corner of your TV screen. In this example, 

POKE 33984,33, an "A" will appear. This is because a 33 in 
the screen data means "put an A on the screen at this 

location." 

MOTE ! 

I want to explain an important point about the "Screen 
Data". The information (data) that is put on the screen is 
normally stored all in one place in memory, and in the same 
form. It is the type of mode line you write the data on that 
determines if it will be large or small text, or graphics 
pixels. Later some of our examples LIST the program to get 
data to "flow" through the area where the screen data is 
stored. Please look closely at the way the same information 
is INTERPRETED differently as it crosses through the 
different modes. This concept is IMPORTANT! 

Next in the DL come several # 2's. These numbers, we 
already mentioned, are the O.S. modes that you want. Since 
we are in GR.O, the DL needs 2's. For each of the 2's( 
including the one "hidden" in the LMS number before), the 
computer will put a GR. mode line (8 pixels high!!) across 
the screen. Don't forget the mode line in the LMS 
i nstruct i on ! 

Finally comes the number 65. Every DL we will do has 
one. The chart gives the meaning of the number 65 as "go 
back to the Display List at the following address and wait 
for the next time the screen is drawn". Don't worry about 
this except to include the 65 at the end of your DL. Leave 
whatever numbers come after this alone. You could actually 
flip to a completely new DL and it's data by just changing 
these numbers . 
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2 "WHICH GRAPHICS MODE WOULD YOU LIKE TO SEE 

T H E ll> X -5 IP' IL ft ¥ L X S T F O R « » ;; 

X X 2 S IP' O K E 2 X © , © 

.1. X 3 © I iM P U T M O lf> E 

XX 4© IF MOOE>lI OR MOI>E<© T M E N .1. X k 

.1. X S © G O T O X 2 2 © 

X X & 5 G R ft P H X C S X 2 ;: P O K E 2 © © , 5 2 



.1. X 2 © P O S X T X O M X , S .". 
O U H if> © j- X 2 © ., © ..• © 5 F O R 
© „ © .„ © 



»6;"MOB>E5 Ei TO 
i-"X TO 55©© ! MEH1 



V ti u u c: 



II O N IL V 
! S O U H 8> © ,, 
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1188 FOR W—JL TO 5B8:MEHT WiGOTO 1.128 

.1. 2 2 USE = N U M C M O D E + JL 3 

.1. 32 3: 2 G R A P H I C S M O S> E 

.1. 2: 3 4 HON = P E E IK CES9) ! P O K E 5 5 9 „ 

.1. 2 4- J = JL 

.:».. 2: 4- 5 »> L = P E IE IK C568 S ■*• 2 5 6>-*P E |£ k; £ 5 © X 2* 

J. 2 5 O M C ,J :» = IP' E E K € ll> I- + J X » 2 J = -J •*■ JL 

JL 2 5 2 X F J < U S E *• JL. T H E M JL 2 5 : 

.1. 2 5 4 G R ift P H I C S S K = JL S P O K E S S 3 1 , M W 

.1. 2 6 IP 5 X T X O N S , s ** " " D X 5 P L A V t. X 5 T F O P. H O D E u " ;: 

MO ID' E ! P O S X T X M .1. , X S '•?' " a - - - - - - 

1270 FOR -J = 2 TO 22 

X 2 © IF O ft X = .1. II O -^ O 3 T E P 4 

.1. 2 9' O IP S X T X O M X , ,Ji ! 2 H € K J : K -•■• IK ■*• .1 i X IF' frC > O S E T H E M 

JL. 3 JL 

.1. 3 O H E K T X S IM E K "II J 

1318 POSITION 2 , 2 3 S ? " a MOULD V O ILK LIKE TO SEE A 

IM O I H IE: If* " " ;; :; X IM P U T ** '^ 

1320 XF ift S ::•::"" V «" THEM 1120 

.1.3:3 XF ft$="M"" I HEW POKE 7&.4 ,, 12 S RUN »*0 s EKZ" 

1 3 4 G O ¥' O JL. 2 © 



EXAMPLE 2 (at last) 



If you are still in example 1 type in "n" and press 
RETURN. Example 2 is for you to practice changing a Display 
List. The numbers that come up in a data statement on the 
screen are there for you to edit using the cursor controls. 
Numbers can be added, changed, or deleted. When ready to see 
what the screen will look like with your new numbers, press 
RETURN. In case you don't understand what to do we have 
already changed some 2's to 4's, so just pressing RETURN 
will get a custom screen. Now you can see why ATARI didn't 
tell you about some of the special modes. Mode 4 is a 
multicolored text mode designed for use with character 
graphics, but it sure looks funny! It also is difficult to 
use, so these new modes wil I not be explained here. Try them 
on your own, or see ATARI publications. 

Play with this example awhile. Try different numbers in 
the list. Remember (I keep repeating myself), the numbers in 
the DL are the O.S. Mode numbers from 2 to 15. This is 
designed as a simple example, so don't get frustrated that 
you have to keep starting over with the same list. Later 
examples will remember your changes and have more room in 
the DATA statements for numbers. ANYTIME YOU WANT TO CHECK 
THE MODES YOU HAVE PLACED ON THE SCREEN, THE EASIEST WAY TO 
DO IT IS TO BREAK THE PROGRAM AND TYPE LIST. THE LISTING 
WILL FLOW ACROSS THE MODES SHOWING YOU WHERE TEXT AND 
GRAPHICS ARE. 
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2: GRAPHICS 17:? »©.;:"" EKAMPLiE Ei" a 

3 FOR 84= X TO 2 30:POKE 7i8.,W 

4. F O R Z R = J.. T O 13 S NEK T Z R 

S NEK T W 

7 G R A P H I C 5 S D X M Z K S' f.135) 

.1. O B> L = P EEK C S 6 O 3 + 2 5 6*6-P E E IK C 5 6 .1. 3 

.1. 5 fizPEEK C ID- L + "4 3 ! B = PEEK C E> L. + 3 » 

2:B GRAPHICS S ? "THIS EXAMPLE ALLOMS YOU TO C 

HftNGE A IMOi&E O DISPLftV LIST!" 

36 2 ""PRESS 6X131131 TO BEGIN"" 

5 S D' A T A X .1. 2 , J, .1. 2 , .1. X 2 .,. 6 6., 6 4. , .1. S 6 ., 2 t .„ 2 , 2,2, :Z , 2 , 2 

„ 2 , h* , 4 .„ 4- „ 4 , 4 , 2 , 2 , 2,2, 2 , 2 , 2 , 2 , 2,65 , 3 2 , .1 5 © „ , O , 

6 , 

62 POKE 5 3 2 7' 3 , 6 

6 5 Z = P E E K C 5 3 2 7' 9 9 

7 8 IF Z = 3 THEM .1 © 
S O G O T O 6 s 

1. ft* O T R A P 4 O O O O s '? " " K " " :; P O S I II" X O N 2 , 5 

1 O 55 ?• "«SS ll> A T ift JL .1. 2 .„ .1. .J, 2 .„ X X 2 ,, 6 © .„ ! ' ■ .;; A S '" " , a " .; B .;; ■ " „ 2 ,, 2 
, 2 ., 2 , se , 2 , 2 , 2 , 2 , 4 , 4 , 4 ,, 4 „ 4 „ 2 , 2 , 2,2, 2 , 2 „ 2 .2,2,65 
, 3 2 , X s © , a , © ,, , " " 

X X O P O S X T I O N 2 , X 5 S 2 » " C H A N «S E T H IE W A L 111 E S V O U 84 A 

N T B V U S I N G "II " H E C 1.8 R S O R C O N T ft O L. 3 T H E N P R E 5 3 

BOEBEIII TO SEE NEW "«.;: 

X X 5 '?' ■ " 3 C R E E M " a 

X 2 P O S X T I O N © , X 

X 2 5 I M P IIJ T Z K S 

X 3 O P O 3 X T X O N & , S 

X 4. O P O IK E 8 4 2 ,, X 3 

X42 POSITION 2 , 12 5 2 "COHT" 

± 4. 4. R O S I T I O N , 3 S S II" O P 

X S P O K E S 4 2 , X 2: 

2 © O R E S T O R E 3 5 
2 X X = 

2 X 5 T R A P X 

2 2 R E A «> G S IP' O K E «> L + I , G S I = I + X i I IF G ~ T H E N 7: 3 3 

2 3 G O T O 2 2 & 

23 5 IFOR M=JL TO 900:N£KT Ms LIST 

2 40 ? "'PRESS EG3HBEHI TO GO ON"" ;: 2 " "PRESS 0QEI3O 

T O il> O A W O T B-il IE R S C R E E N " " 

2 4. 3 T R ift H ::i ' X O O 

2:50 POKE 532 75 , & 

2 3 O Z = P E E K C 5 3 2 7 3 3" 

2:70 IF Z = 6 THEN 3 7 

2 6 O I IF' Z -~ 3 "ii " H E li'iil R SJ H " " li> ;; E K 3 " " 

3 G O T O 2 3 

EXAMPLE 3 

This is a sma I I subroutine for you to use in your own 
programs. The numbers for the DATA statement (the DL) can 
come from EX. 2 (or better yet EX. 10). Some of the lines in 
this example we added to make this Tutorial flow smoothly, 
so after you copy the example, delete all but the call to 
the subroutine in line 700 plus the subroutine itself, lines 
10000-10040 . Here's how the routine works: 
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10010 DL=PEEK(560)+256*PEEK(561 ) 

Line 10010 - puts together the two parts of the address 
stored in 560 & 561 . These two locations combine to give you 
the start of the Display List. Since this varies, you have 
to look at these locations each time you do a Graphics call, 
like GR. or GR. 7 . The Graphics call will automatically 
set up a DL and screen data area within memory. 

I 'm confused ! 
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13 

8 

25 



I i nes 
I i nes 
GR. 7 



of GR. 8 
of GR. 2 
I i nes * 40 



per 



* 40 bytes 
20 bytes per 
bytes per 



I i ne 
I ine 
ine 



equals:1680 bytes needed for DATA 

and:191 pixel lines used(close enough to 192!) 
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If you allow another 70 or so bytes for the DL itself, you 
get a minimum of 1750 bytes needed for your custom DL. By 
calling a standard GR. 6 (see chart), 2048 bytes would be 
set up which is enough. At this point (after the call), you 
would look at 560 & 561 to get the address of the start of 
the DL. By the way, the estimate of 70 additional bytes for 
the DL comes from adding up the number of mode lines you are 
going to call (46 In above example), plus some extras for 
the blank lines, the LMS bytes, and the 65 & address at the 
end of every DL. 

Let's finish this example and then explain the chart. 

1001 1 Z1 =PEEK(DL+4) : Z2=PEEK ( DL+5 ) 



Line 10011 - saves the location where the screen's data 
starts, which always comes at the 5th and 6th value into the 
DL(rIght after the LMS) . 

10012 1=1 

10013 READ A : I F A=0 THEN 10040 

10014 POKE (DL+l-1 ),A 

10015 IF l=5 THEN POKE DL+4,Z1 

10016 IF l=6 THEN POKE DL+5,Z2 
10020 1=1+1 :G0T0 10013 

10030 DATA 112,112,112,66,64,156,2,2,2,5,5,5,5,2,2, 
4,4,4,4,4,65,32, 124,0,0,0 

Lines 10012 to 10030 - We now set a counter, and read a 
value; if it = we're all done; if not, we POKE it into the 
first location in the DL(thus changing the DL if the number 
is different). We then test for the 5th and 6th value, and 
if we just POKEd in these values from the DATA statement, we 
POKE in another value from line 10011. This is because these 
two numbers depend on your memory size, so the numbers in 
the data statement are dummys waiting for these correct 
numbers to be PEEKed from the DL and then POKEd right back 
in again(sure it could be done other ways.. ..this is my 
way). This simple loop continues until the program reads in 
a from the DATA statement then stops. Notice whenever you 
change a DL this way it changes down the screen just like a 
curtainfalling. Neat! 




TOP OF MEMORY 

\b x 1024- OR 
32 x 1024 or 
48 x 1024 

i 



D ISP-LAY LIST 
R"OR GRAPHICS O -fco 4--«-l 



GRAPHICS 
MODES 



N) 







SI 60: 



+ 16 
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:|60$S 



2tl6 



3 Ifl6<5]i 



3 + 16 



ST66SS 



4+16 



-256 BYTES 



-512 BYTES 



-768 BYTES 



%-o : 



m- 






391 



b79- 






■132 



lolZ- 






"24^ 



A3A- 






420 



■424- 



-432- 



694-- 



■6% 



UNUSED 



i GRAPHICS DATA 

F- 1" O l_J Ft EZ 3 .Pi 



•1024 BYTES 
1 



'F3Z: 



TEXT DATA 



DISPLAY LIST 
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16 X 1024 OR 
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MODES 
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'411' 



1154- 



1174- 



5+lfe ii£||§ 3| 



176- 



320 1 



■2174- 



6+- 16 
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-409k (4K) 
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■4190- 
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-4200- 
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+■ 16 n^i 
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UNUSED 
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TEXT DATA 



| GRAPHICS DATA 



DISPLAY LIST 



F-" I G 



(NOT TO SCALE) 




BACK TO THAT BIO CHART AGAIN 

It isn't necessary for you to understand Figure 3, so 
feel free to skip this section. Just pick one of the 
Graphics Modes you are used to using and look at it on the 
chart. Lets pick GR.4 (O.S. mode 9). Starting down from the 
top of memory about 600 bytes, we see the DL uses 54 bytes 
of memory. Next comes the screen data of 400 bytes, then 
some empty (unused) memory locations. Finally, 160 bytes of 
data for the text window. The other Graphics Modes work the 
same way. 

The text window is a slight complication to the DL 
after the sequence of 1 1 2 ' s , the LMS bytes, and the various 
O.S. Mode numbers, as discussed above, YOU WOULD FIND 
ANOTHER LMS! And following that will come more mode line 
instructions (text of course), and now finally comes the 65 
address to end the DL. The extra LMS just says to: "Go get 
some data from another location in memory than the one the 
computer is at, and then place that data in some text mode 
I i nes ( usua I I y 4 lines of GR.0), all at the bottom of the 
screen . 



.I.© GBiftPHIC5 17;? #* 6 ji " " EKAHPLE S"" 

28 FOR W":u.:IL TO 23@iPOKE "7 .1. .,. W 

3 & F O R Z U — .1. T O .1 S H IE K T Z R 

■* iB M E X T M 

Sfli REM THIS 15 Hi 5 U IB; If* O iUI TIME FOR V O It J TO USE X 

M YOUR OWN PROGRAMS ., SEE MftMLlftlL FOR i!> I U E C TI OIN! 
5 

T m & G O S 1.8 B JL G its O & 

,7' .1. & R E M R BJI I' T H E.' R E 5 T O F V O Lli R R R O G R A Pi S T A R T X. H G 

o mi t h j: s i_ :i: m e 

7± S FOR M=± TO 28841 ;; MEKT W 

7'2:0 GRAPHICS 9 : ? "" THI:j iEKnHIPLE 15 FOR ¥OU TO 
It J 5 E I M V O II J R R R G R ifli 8-1! S . » » S ? » » R R E 3 S Ft |R E a k ,ft IMi il> S ft 'U< 
IE XT Ir YOU NONT l)i)"' s 
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7 3 & ■!' " B P R SI 3 5 O ff» T I O N T *J G O O 9 s * „ ■ " S IP O K IE. 5 S 2 V 3 , & 

7 4. Z ::": PEEK C 5 3 2: 2' '3 3 

750 IF Z~.:3 THEN POKE /6.4- „ .1. 2: ! RUN ""il> ;; EK4" 

7 & © S O "f O 7 4. 

J. © O "ii" R « IP .1 © 4- e 

.1. i0i .1. ll> L. = P E IE K t S 6. :» »■ 2: 5 S*£-P IE IE Ii";: C S .i. 3 

.J.8iII Zi=PEEK CICHL ♦■*.) : Z2 = PEEK C ll> IE -a- 5 :i!i 

.1. J. 2 .1 = J.. 

.i. cii 1. 3 h e a n> >& s :i: f tt = o r h e n .1. * 



.1 .1 4 P O «< E 

1. O ± S X F I 

.1 tn 1. s :.i: f .1: 

.1 2 1: = 1: ■# 



c d ii.... + :x -■••■ ■».. :* „ a 

:-" S T II a E W P O IK E & E * 4- „ Z. A. 

= 6 T H IE HI POKE » «.... -8- S „ 2: 2 

.1. S T O JL 1. 3 
1 © O 3 O ii> ft T A .1. .1. 2 .„ .1. .1. 2: „ JL .:!. 2 ,. 6 , 6 4 .,, .:! S © „ 2 

5 ,, 2 .,, 2: .„ 4- Ii. .„ 4 ,, 4. .„ 4 „ : z , © 5 „ 3: 2 „ ± : z 4 ., ,„ & ,, & 

II.. 004w RETURN 






MASTER MEMORY 

MAP 



NOW FOR AN ADVERTISEMENT 



All these PEEK and POKE locations are summerized in my 
MASTER MEMORY MAP. FORK OVER THE $6.95 and order one today! 
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EXAMPLI 



&c 



Ok students, time for fun. Run example 4. All of this DL 
stuff may not seem too practical, so the next two examples 
are to give you some ideas. By simply setting up a GR.1 
(large letters) DL, but in the middle doing a second LMS 
(70,96,127 in the data but the last two numbers are rePOKEd 
in lines 10023-10024 depending on your memory), we tell the 
DL that once it gets about halfway down the screen, It 
should get Its data from the same place as the top of the 
screen did! There are few restrictions on what you can do 
with the LMS byte. It doesn't have to wait to be used only 
at the beginning of the DL and at 4K. boundaries. 



Example 5 is the same thing, but with only one copy of 
what you type in. Both of these could be used for games, but 
a more useful Idea might be to allow programming in big 
letters for the hard of seeing or kids to use. 




MftVE 



LOST YOU1? 



You should still be in example 4. The program says READY 
in double letters. Since the program has stopped, you can do 
what you like. Try a simple line like "Hello, I use BIG 
letters". The computer will now work like it was in GR.0. 
Why? Look at line 720 in EX.4--720 POKE 87,0:END. The POKE 
to location 87 fools the computer. We just (in the 
subroutine) set up the DL like a GR.1 screen, but the 
computer looks to location 87 to see what mode it is in, so 
by POKEing in (the Graphics Mode goes here, not the O.S. 
mode used in the DL), it thinks it can write listings as 
though it were in GR.0. 



J. it:!' G SH a P H Jil C V 



iM 



XV i 


M'fo ;; ; " & .H ft it-ill- 


" L. E 


F Oi :Z 


:;>e ;: POKE 7J.9 


W 


1" til 


.1. & a WHEKT 2.U 





13 "" 



:Z & F 0> iR: 

3 & F » U Z. R 

4- & H E H T M 

4i '* if:li K it !f''i! *«• *C :MI-:;»'. it -M - IWi -it-M- WM *C-:W M :i»'- M-Mr : ! »i:-;im- m &r-M-$l~M-M."M M-M-M 
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SO© REM HERE 15 ft P R ft C "If ' X C ift L. EHAMPLE O F WB-fi ft T VO 
U CAW 8>0 WITH ft OX5PLAV LIST THAT IS HOBIFIEO 
518 REM JUST SAY GOTO ZOO WHEW VOU Ml ft NT T 

O S E E YOUR PRO G R ft M I W B I G II... E T T E R S ft M S> I M 8> O P 
LICATE !! 9 

S 2 © RE M XHM-XHW' XM 'X' X " X X X X" X - ^"XHH HNH«^ 

ZOO G O S 1J B IOO O O 

710 REM YOUR IB ft SIC PROGRAM GOES HERE 

7 2: © POKE 7 , O S END 

IO808 REM TRAP .10 0-40 ; GMAPHXCS J. 

.1 OOO S G R ft P H I C S J. 

1.0018 O L --- P E E IK {568) +256*PEEK {5§i:j 

JL 001S Zl :--■ P E E K C »> L. *• 4- 3 ! Z: 2 ~ P E E K. C l> L. + 5 3 

J.. O ©16 I = .1. 

.1 © O J. 7 R E ft D ft 8 I F ft = O T H E N JL O O 4. 

i. O O St O P O K E it Ifr l_ ■#■ I -- I S , ft 

1. O O 2 .1. I F I = S T H E H P O K.' E H> L. •*• 4 , Z." .1. 3 2 

JL 2 2 I F I = G T H E M If* O K E & It.- •*• 5, Z 2 * 2: 

.1. O023 I F I = JL © T M E Mi P O K E Ifr L ■+• JL S .„ Z JL 3 2 

J. 2-* I F I = JL 7 "8" HEN P O 9< E ifr L ■*■ 1. 6 , Z :Z -6- 2 

.1.O0 2S I = I + .i. S GOTO .LOO JL 7 

JL O030 & ft T ft JL JL 2 , JL JL 2 * JL JL 2 „ 7' © , 9 6 .„ JL 2 7 , © , G „ 6 .,, 6 , 6 .„ 6 .„ 

G ., 6 .,, 7 O .,, 9 6 ,, .1. 2: 7 .,, G , „ 6 „ © , G .„ 6 , 6 .,, G , G , © 5 ,„ 3> 4. , JL 2 S , & .,, 

JL 840 R E TURN 

Example 5 is almost the same, except instead of the POKE 
87, we start with a GR.O mode. This internally changes 87 to 
(try a PEEK(87) if you don't believe me). Sometimes one 
method is more desirable than the other. You pick one. The 
other difference is that there is no second LMS in the 
middle of the DL. The writing in these two examples is 
large, but the computer still thinks it Is in mode so it 
trys to fit in the normal 40x24 letters. For this reason, 
you won't see the text in the way that you expect. Try a 
LIST command. STRANGE! 

NOTE - To get to example 5 & 6 you have to either type in 
RUN"D:EX5" OR RUN"C:", whichever is appropiate. The same for 
EX.6. This is because we stopped EX.4 & EX.5 for you to try 
out . 

.1.0 GRAPHICS J.. ?:? tt6j" EXAMPLE S a " 

2 43i p o R W= JL T O 2: 3 & :: P O K E 7 JL O , M 

3 o f o r z r = .1 t o jl ;: h ie k t z if* 
4. © m e :h; t w 

5 REM THIS 15 ft SUBROUTINE TO AIL. L. Ow VOU TO 
PROGRAM WITH BIS LETTERS. SEE MAM UAL. (FOR ifr IRE 
C T I O H S » 

•7 © G IR ft P H I C S S G O S III B JL O © 

■Z J.. O REM P ill T T H E R E 5 T O F V O U R P R O G R ft M S "1 ft R « I N 

G OW THIS LINE 
Z 2: l_ I S T s E N if> 
J.. O © © © T R ft P JL © 4. © 

.1. © JL © li> L = P E IE K € 5 G © 3 + 2 5 G ■» P EEK C S 6 .1 » 
JL © JL JL Z JL - P E E K C & L + 4. 3 :: Z 2 ~: P E E K C D L '*■ 53 S 
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.1. & X St 
.1. & & X 3 
.1. X .* 
J. i0i X s 

X tH jl 6 
.1. & & St © 
.J., 3 iB 
© „ & ,, © 



X = X 

ih e ft t> ft : x r A = T H E H X 4- 

P O K E C lt> L +■ X i. :* , ft 

X F X = S "«" H E N P K E K> L + 4 , Z .1 + T" 

X F X ■■•-••• 6 T H E N P O K E li> It- + S * Z :Z + St 

x=x+x ! goto ieei3 

K> ft T ft .1. X St „ .i. .1. St , .1. .1. St , 

© .,. & .,. © ji © .,. © * © ,. © ..' © -» © 



7' , Z 4 * X 5 ji © j. © * © « © 
, 6 S , 3 St , X St 4. .„ , , © 



•L0040 RETURN 



EXAMF*!—! 



This example is like EX.2, except that it remembers your 
current DL. This way you can slowly change the DL until you 
like it. Then copy the numbers and use them in EX.3 in your 
own programs. After you create a screen, if you want to 
BREAK the program just type LIST. This will flow the 
programs dafa over the DL you just created to better see 
each region. To restart the program, just type RUN. Other 
commands are: press OPTION to go to EX.7; press START to do 
another screen using the current DL numbers; press SELECT to 
get back to the original numbers in case your custom screen 
goes crazy, or you get lost in what you're doing. 



GRAPHICS MODE LINES AND PIXEL LINES 



1--> mi 1 1 1 1 1 1 1 1 1 1 1 1 ii 1 1 1 1 1 ii 1 1 1 1 1 1 1 1 ii 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ii PIXEL LINE 



2— > 



J GR.7C0.S. MODE 13) 



4--> 



GR.4C0.S. MODE 9) 



(Up to 16 Pixels per Mode Line in O.S. Modes 5 & 7 (=GR.2)) 

FIGURE 4 
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GOING CR«iZY*P 




..8.. G U A P H III:: C S A. 7 ! ? t# 6 ; " " E K A MP «... IE 03 " " 

3 FOR N=J. TO 2S8:POIKE 7 TO,, Ml 

■ill- F O ff* Z U — .1 T O .1. O ! H E K T Z R 

S M E K T 8*3 

7' 1>IM ZKS £13 5:$ 

2 6 GRAPHICS OS ? ""THIS EK AMPLE ALLOMS YOU TO C 

IHANGE ft HOPE O DISPLAV LIST « »« 

3 © ? "PRE S S jglSG'811 1 T O B E Gi I IM " ■ s ? « « w n I T E 8> O 8*8 M T H E 
HUMBERS IN THE |T|J§ Willi FN V O U L.XKE IT!" 
S 5 l>ATA JL .:it. 2 „ JL JL 2 , J. JL 2 „ 6 & „ 3 G , ± 4 4 , 2 „ 2 , 2 , 2 , .2 , 2 , 2 .,. 2 

,, 2 j. 4 ... a * f * j' ■* j' ** <■ ■*-■ * 2 K 2 , 2 j. 2 , 2 , 2 , 2 » 2 .„ © 5 , 3 2 , JL 5 6 , 

S © 8> ft T ft ., '» ... .,. © * © j. r © ..- O - » O * .>■ O j. .,. , & , .,, , O ,, 

.„ t ,, O „ , ,, , O .„ „ „ , „ , © S , 3 2 , JL S © .„ 

S 7 & ft T ft , , O , , , , _„ , & , o , v , „ , , O „ e , ib „ o 
., j. ,, .„ , ,, „ CH j, , , , if* .„ , © 5 .„ 3 2 * JL 'S © , 

S D ft T ft „ 101 , O , f „ .„ , .„ , , , & .,. .,. a. , „ ,, ,. 

, .„ ,. , .,. „ © , e , © „ „ fj , „ , & s , 3 2 , JL S 6 , 

6. 2 POKE 5 3 2 7' 3 „ 8 

65 Z=PEEK tSS2 79) 

V& IF Z = © THEN I0O 

O GOTO © 5 

.1. OO Gi HI ft P H I C S : IP O 5 I T I O M 2 .,. 3 

.1. O S L. I S T 5 5 j, 5 S 

JL JL. O POSIT I O N 2 , JL S ? " " C H ft N G E T H E U ft l_ 8 J E 3 V O 18 Ml ft 

NT ©V USING THE.' CURSOR CONTROLS "" 

JL 2 © PO S I T I O N :IL ,, 

1 25 IN IP 8J T Z K § 

JL 3 O POSITION O , 2 
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X 4 P O IK E 6 4 2 , A 3 

X 4- 2 !P iD S I T X O N 2 , A '/ 8 '? ■ " C O M T " " 

J.. 4- 4- P O 3 X T X O M O „ 2 ! 5 T O P 

J.. 5 © P O IK E 8 4- 2 , .J). 2 

2 © P E 5 T IF* E to to 

2 JL X -~. to 

2 J. 5 T R A P 4 O 

2: J.. 7' I = JL :: GRAPHIC5 7 + JL6 

2 J.. © S> I!... = P E IE IK C iS to to » •*• 5!: 5 G-»P E IE IK C S to JL :* 

2 J. 13' A = P E EKC D l_ + 4- .'* ! B = P E E IK C 1> L + 5J 

2 2 READ G i I P to = T H IE N 2 3 3 

2 2 JL P O IK E «.> L -«■ X -- .1. , G 

2 2 2 X F X = 5 T H E H P O IK E il> L * 4. ,„ to 

2 2 3 X IF' X = to T H E N P Q K E U> L + 5 , B 

2 3: I = I ■*• 1. S to O T O 2 2 © 

233 FOR W=JL TO 988 I NEKT HiPOKE B7,fl 

2 4 P O S I T X O H 2 , JL ! ? " " IP' R E 5 S LHaaOEEO T to to O O N " ■ s ? 

»«press B0E3QBD to oo ah other scrEeh" 

2 4 3 '? ""PRESS BSCDEBl IF OP THE OHIGMflL DXSPL.AY 

IE I 5 li ■ " 

2 4- S T II* A P 5 

2 S P O K E 5 3 2 7 3' , 8 

200 Z=PEEK £532793 

285 IF z: = S THEH 4-00 

2 7fl IF z: = to THEH 57 

2 8 I IF Z = 3 T H E H P O IK E 7 to 4- .„ JL 2 S H II..B M " ■ ii> :: IE K 7 " a 

3: to O T O 2 to 

4 T IF* A P 4 O s to R A P IHI X C 3 S P O 5 X T I O H 2 .„ 4- 

41. 5 ? » > 5; S j|> fl T , a jl jl 2; ( , ± A 2 p , A jl 2 „ e. to „ » " .;: A J ■ " , " » j B .;: » " , 2 .,. k 

, 2 , 2 , 2 , 2 .„ 2 , 2 „ 2 ., 4 , 4 „ 4 , 4 „ 4 ,, 2 , 2 „ 2 , 2 „ 2 „ 2 , 2: 2 2 ft «5 

., 3 2 , JLtoto „ 0"" J " " 

4 6 ? " " 5 to l!> to T A .„ .,, to , O „ „ „ „ , e ,, to „ „ „ O , „ „ 

, , , „ „ , , , , o ,, e „ e „ # e i: p B r Cf| ,,,'.,., 

4 7 ? "87 IOATA to ,. to „ to „ & , e „ q „ e , & , ^ , # ' ^ ' * 

to , ,, to , to , , , .„ „ „ e , , , 9,*.9,».iZ;Sz*£z°£' 

400 ?. "58 AT A to , to , to , , o , , „ e , „ „ „ '" _ ' " 
4X0 GOTO JLJL© ''«iW6 # »'« 



EX^MF>I_I 



This one is for you to figure out. Some clues: When the 
"HELLO'S" stop, look at all the modes on the screen. Notice 
towards the bottom, the mode eight area (obvious by the red 
and blue pixels). Since the computer displays the data 
according to whatever data is next "in line", the statements 
about press OPTION, START, or SELECT end up in this mode 8 
area (even though you can't see the statements, you can 
still use them). Then we hit a 4k boundary, so a LMS 
instruction was used but to make it interesting, we used the 
same address as the top of the data. Look at the Display 
List for GR.8 using EX.1. See the 79 (LMS) instruction in 
the middle. 
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2 GBflPHICS X V S -? tt©.?"" EKAMPLE El" 

4 F O R 84= X TO 2 3 © S IP O IK E 7 X © , W 
ES F O R Z R = .1. T O .1. 8:NE H T Z R 

6 HI e: k t m 

7 &IM ZKS (1S5J 

10 TRAP 4 ©0 0© S TRAP X© 

20 GRAPHICS S •'? "THIS EKAMPLE A ILL. OS4S YOU TO C 

HANG E A MO «> E j> X 5 IP l_ A V L, I 3 T » " " 

3 "?' " " IP R E "3 3 EII'aEH T O !3 E G X M " " S '■:'• " " MR X T E 8> O MINI T H E 
H U H B E R 5 X N T H E QJQj WHEN V O U L I K E I T !! " " 

4 IP O K E 7 X O , 

5 S 8> A T ft JL X 2 , J, X 2 , JL JL 2 ,, 6 © , 3' © , .1. 4 4 , 2 .,, £ , 2: , 2 , © .,, Hi , 7 .„ 7 
, X 4 , X 4- j. X 4 j, X 4 ,, X 4 , X 4 .,, X 4 , 2 , 2 „ ± 5 ., J. <% 

5 © g> A T A X 5 , .1. 5 .„ X S .„ X S , X 5 .„ 7 3 , S> © .„ X 4 4 , X S , © , 7" .„ 2 , 2 ,. © 
S ... 32 .,. J.S6 ., 0,0,® , , 0,0, , , , „ (J,e H 0,e,8,fl,8 f 65 
, 3 2 , X 5 © .„ 

5 7 !> A T A , O , , , .„ O , .„ , , , , ,0,0 , , , , „ 
* , , „ , .„ , , „ „ t & r , _, 6 s p 3 2 ^ 1. S 6 , © 

5 © S> A T A .,. j, , , j. ., , , , , , , , , , , .„ © , 
, O t © , , , , , „ ib „ „ „ „ o p e , 5 M 3 2 M j. s l& r & 

© 2 P O IK E S 3 2 7 9 1 , © 

© 5 Z=PEEK t5 3 2 7 3 3 

70 IF Z=© THEM X0O 

© GOTO © 85 

x 2 " • s"* " " :: p o s ::ii: t iom 2 .„ 3 

.1 O 5 «... X S T S © , !5 © 

XX0 POSITION 2, X© ; -? '"CHANCE THE VALUES VOLS Hfl 

IMT BY USING THE CURSOR CONTROL. S "" 

XX© 2 ""©ORE EM . "" 

X 2 P O S I T X O H X © ., 

X 2 S I N IP U T Z H © 

X 3 P S X T I © «i O .,. 2 

.1. 4- © IP O IK E © 4 2 „ X 3 

X 4 2 IP O 3 I T I O N 2 , X 7 S 2 " " C O N T " " 

X 4- 4 IP O S I "II" X. O N O , 2 ;; 3 T O IP 

X S IP O frC E 3 4 2 , X 2 

2 © R E S T O R E 5 5 

2 X X = © 

2 X © T R ft IP 4 © 

2 X 7 X = X S G R A IP M I C 3 7 + X 6:PO K E 7 X. „ 

2 X © i> L. = IP E E »< g S © :> + 2 5 ©»IP E E IK C S © X :* 

2 J.. 9 A = IP E E K C a> !!.._ + 4 !* S © = P E E K € B> L + 5 S 

2 2 R E A B> G i X IF G = "II" H E H 2: 3 3 

2 2 X P O IK E !!> L. + X ~ X ,, G 

2 2 2 I IF I = 5 T H E HI P O K E l!> II.... *■ 4 .„ A 

2: 2 3 X. IF' X = © II" ll'll E m IF 3 ' O K E l& II.... + © , B 

23© X~X + X S GOTO 220 

2 3 3 FOR M=X TO T* 0© S H IF K "II" W 8 POKE ©7,0 SB- 1ST iGOS 

U © S 

2 4© 2 "PRESS IMMMME1 TO GO OM"!? "PRESS iajGHIJ 
TO l&O ANOTHER ©ORE EM"" 
2 4- 3 
IL. I S T 



P R E S S P3L"MIIMsiJ « ; © R "»' H it- © R I ti X H A L. E> 1. S P IL. A V 
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2 4. 5 T R A P 1 1. 

2 S & P- O IK E S 3 :Z 2 9 , & i; J - 

2 6 © Z -'■• IP 1 E £ IK C S 3 2 '7' H* J' 

2 S S X IF Z -:-■■ S T H E M 4 © 

2 2G* IF Z: = & THEM 5/ 

2 8 © X F Z ■■■-■ 3 T H E H P O K E :?' © 4 « J- 2 « if* U M s " «> - E: ;H ;B 

3C G O "II" O 2 6 €H 

480 TRAP 48eeB:GRAPHIC5 8 P05I : i 

A O 5 ■? " " S 5 H' |: "ft »" ** •*• :li - 5: J 

.,, 2 , 2 , S ,, & , 2 , '7 .,, .1 4. » ■'■»•■ 4- * A 4 .,, 

.* e 2 " " 5 6 i!> A T A .1. 5 , .1. 5 , .1. S ,. .11- S .,. A. S , 7 9 ... S 6 , X 4 4 ,, .1. 5 „ 6 

7 „ 2 j. 2 „ © 5 .„ 3 2 .„ .:IL 5 © ,. * O .,. O * * 8 .,. « © * * © " " 

„ 4S , _,, -,. « « s y i|j ^ x it"), e ., its „ ,, a ,, '& „ o ,, e „ , „ ,, & t & , e ,, , 

^ ' © „ „ , * ® •• © - *» , * ... .* - j. .■■ .,■ & S * 3f 2 .,. X 5 & » " " 

4 as V M5 8 DATA O , » , , O ■>■ » » « - » < ° ** * ** * ° * ° * ** ' ** 'J*' 
O .„ O , .„ , , , ., „ US , , , , O , « , O * © * lB S » ' :!; - ;;£ * JL !b ' 6 " ° 

41. 1. G O T O X X 

5 & © J = J + X ! "?■ " ' H E L 1L " " : X F -J < S T H E N S 
S & X. IR E T U ift H 



L 2 , .a X 2 , S © .„ " " ;; A ; " " ., " " J B ; - - , 2 .„ . 

X 4 .,, X 4. , JL 4 ,. 2 , 2 „ .1. S .„ J- 55 " ■ 
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±& graphics I?:? «»&?"" ekamplie: 03"" 




2 8 FOiR M=JL TO 238:POKE 7JL © „ IW 




3:«i FOR ZR=i TO Ki ;; NEKT ZR 




4- M E K T tt--B 




see REM THIS 1: 3 A susroutime fob vojj 


T O US IE T 


O LOOK AT MEMOfl:".' BOTH FROM A GRAPHIC'S 


A H B> "II " E K 


T U A 8... U T E MP O X M T S 




520 REM USE YOUB EljJ^^OHMS AMD- MOVE UP 


OR ift OWN 


IN MEMORY » !! !! PRE5S f»E30R3II3 TO GO DM . 




■/C-HO GRAPHICS O S GOSSJB .1.0000 




7' O S I = Z .1. 5 !L. I 5 T :: P O K IE 5 3 2 7' 3 .„ 




7' O 7 FO R F '•= JL T O 5 O S 2 " " IiJ 5 E J O Y S T I C !!< "SlIE 


K T F 


7 J.. S T = S T I C K: C & 3 : Z = PEEK C S 3 2 7 S 3> a I F Z = 3 


T H E N P O K 


E 7 © 4. , 12 S RUN " " U> ! E K 3 " » 




7 AS IF ST=15 THEM 719 




728 IF ST=I4 THEM Z2=Z2+1 




7 3 IF 5T=I3 THEM Z2 = Z2 JL 




7 4. I F Z 2 < JL O T H E N Z 2 = JL O 




7 4- 5 I F Z 2 > IP E E K C .1 O © J "i ' H E M Z 2 = P E E IK £ JL O G 3 




7 5 P O K E B> S... -a- 5 , Z 2 




7' GO G O T O 7 JL O 




.1. 0O T R ift P JL O O 4- 




.1.00.10 &L = PIEEK C58BJ +256*PEEK (5613 




.1. 0O1. J. Z .1 -■ P E E K C B> IL *■ 4 3 i Z 2 ~ P E E ,K C D L. •*■ 5 3 




.1 1 2 I "-- JL 




.1 .1 3 If i E: A B> ift ! I B= : ' ft ■'.■•-: © T H E H .1. O 4- 6" 




.1 O & .1 4 P (J K E C ll> IL- *■ JL .1 3 „ A 




.1. .1 !5 I F I = S T H IE M P O K IE ID- IL.. + 4 .„ Z JL 




.1 0±e I F I = © T H E U POKE il> Ii... ■*• S ,. Z 2 




.1 © O 2 I -■■■•■■ I '*• J.. 5 G O T O JL O 1 3 




.:«.. O 3 O IL> ift "»" A JL .1 2 , .1 1 2 , .1 .1 2 „ © © , © <« , JL 5 © , 2 ,„ 2 , 


,-;,. ..-J. .j,. .rj. 


O .„ & , © , © , © j, © , © , © ,, JL O , JL >& ., JL O .„ .1 O , .1 O , JL O .„ 2 , 2 


, t i 2 ji !i£ ,|( !«£ ji O 


s .,, a;: 2 ., .i 2 4 .,, e , o , o ^—r^ 




100 4 TRAP 40O00 :; RETURN %.K^lij 
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A PRACTICAL EXAMPLE 
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.10 GRAPHICS 17:7' ittfi ; " EKAMPLE H"" 

2 FOR fr*~X I'O 236:POKE 7 .1. 8 ,, W 

3E 8 F O IR Z U = .1. "II" O A & ;; M E K T Z. ft 

.* M E M T W 

598 REM THIS I S ft S IL8 IS R O U "II" X N E FOR VOilJ "it'O llJSE X 

m V O li..il R O H IM P R O G IF* ft M S . 5 IE E M ft N U ift II... F O R il> X IK E C "fi " X O H 

5 ,. 

S & 5 & Ift ft P SHI I C 5 & 
S ..1 O G O S U B 1. its & & 

SJLS POKE 87,1 IPOSITIOS 8,8:? »6;"THIS 15 BIG 
II... E F T £ ft S " " 

5 2 ■» « 6 | » ■ O H T W O 11... I IMi E S " " 8 : i" « 6 J ■ " O R a H R E E " " 

6 50 P O K E 8 7 , 4 3 C O L O R J. :: P L O T .:IL .„ S s D R ft WT O .1. ,. .1 5 ! D R 

ft Ms if O fa. .,, A 5 ;: P II.... O '"" 

ifrlR-ft WTO 3 „ 8 

5 S S P L O T S , .1. s ! ID R ft WT O S , © ;; P L. O "II" 7 , 1 5 :: il> IR ft WT O 7 , i) 
2 ;; PiLO 8 S , 15 5 DRANTO 3 , 8 ;: PLOT i.t, IS s i&ftftMTO J l „ g. 
S PL O T 13 , IS s lt> Rift wro 13 „ X .1. 

s©0 poke 8 7 , :::• s po ! >i moh , s s •? **© 3 » ■GSlMIIl l MMI^tMHMj 
UMaHWin fact am ot-ti-ner 1t Hi. «•-«•** rows: o if *?i>*«« 

SS70 POKE 37,e:POSXTION 1,6:? " " ift IMI «> op COURSE <3 
CME rXHV TEXT. ...press SStiiaiEl TO ISO ON" 



15 , IS S ID'Rft WTO IS . 18 S PILOT 3 „ .1. S ;; 
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? "£ PO IK E 5 3f 2 


7' 4 Z ~ 


• PEE IK £!5 


7" S & I IF 


■ Z ■= 3 T 


7 6 G O T O 7 4- O 


JL 


T R ft P JL 


.1. ..1 


i> L. ~ IP E E 


X JL JL 


Z JL ---■ IP IE E 


.1 JL 2 


X ~ JL 


j. x ar 


IR EA& ft 


JL © JL 4 


P O B< E C 


JL. © X 5 


X F X = 5 


J. O JL © 


X F X = © 


.1. 2 


X-X-8-X :; 


JL 3 


ll> ft T ft JL. 


•9 a- 9 , ■» .„ 


■i-ll -r.:(, .|:.Ti 


, 





7" s „ © 

3 2 7' !:3> J 

M E W P O IK' E 7 6 4- , .1. 2 8 R LB I 



" " H> ;: E H X O " " 



4. 

W: C S 3t ■»■ 2 55 ©**-P E E IK C 5 © X 3 

K C 8> l_ •■«' 4- 3" S Z2 = PEEK CDL + S) 

S XF ft'.:'- it* THEM 18848 
B> l_ *• X — X 3" .„ ft 

T HEW P O IK E It* L •+• 4 „ Z .1. 

T H E M P O K E B> L ■#■ 5 ,, Z 2 



i5 O T O .1. 

X 2 , .1. X 2 , X 

....,, ....,, ..-j. ...jp 

rf .1. rf- .p v V if .(> 



1 3 

I. 2 ,, 7 , © 4 , X 5 © „ S .„ © , 3 , *3 , SI' .„ 3 , 
2: j, 2 ... 2 j, 2 .„ 2 .„ 2 .„ S 5 , 3 2 .,, X 2 4 .» „ 



X 4 ft E T !U R H 




XAMPL 



lO 



This example is the big time! We have placed all of the 

previous abilities in this one, but added the information we 

promised in a chart on the screen. RUN the example and 
follow It through with us. 



The program still uses DATA 
with breaking up the screen into 
modes. Use the cursor controls as 
press RETURN to see what you have 
modes at the top of the screen, 
controls are different, so pay 
screen appears, you can : 



statements to experiment 
mixed graphic and text 
before to edit the list, 
created. If you used PLOT 
you won't see that the 
attention. When the split 



1 ) 
2) 
3) 
4) 



Press START (as before) to go change the 

current DL. 

Press SELECT (as before) to go back to the 

original DL . 

Press OPTION and START at exactly the same 
This will get you to the last example. 
Press OPTION for a chart of the custom DL 
you created . 



time 
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Now get to the new chart by pressing RETURN and then 
OPTION as explained above. The first column is the position 
of each graphics mode you choose : 1 , 2 , 3 . . . I ast (max i mum of 
20!). The second column tells you what number to POKE into 
location 87. This is simply the regular graphic mode 
number (0-1 1 ) . Column three is the O.S.mode # which was the 
number you used in the DL itself. Yes, It is confusing to 
use both numbers in the same program when they mean the same 
thing to us, but remember that when you use a regular GR. 
mode # you are talking to the BASIC Interpeter which then 
changes the number you give into the O.S. mode number . We 
are just bypassing the interpeter to get the special screens 
that it doesn't allow! 

The next column Is the number of lines of this mode you 
asked for, ie. how many times you included it in the DL. 
This is useful because if you have say six lines of a 
graphic region and you try to plot to 7,7 you will go out of 
that mode and into the next, causing garbage to appear on 
the screen. The same goes for text regions. This column will 
provide a quick reference. Then comes the two columns of 
POKE numbers for locations 88 & 89. These two values 
combined with 87 will fool the computer into acting as if 
each region starts with 0,0 at it's upper left corner. This 
makes your PRINT and PLOT statements work like normal. The 
difference is you PRINT/PLOT to EACH region as if it started 
with 0,0 at it's upper left corner. 

Write down all this Information or use In your custom 
routine, or to modify one of our examples. 

The chart also lists the number of lines of pixels you 
filled on the screen. If it doesn't come out close to 192, 
or if you want to make some other change, you can go back to 
re-edit the DL by pressing START. If you have too many 
lines, then remove modes lines, or add some if you're short. 



IF YOU'RE STILL LOST 

Use the parts of this program that you understand now, 
and come back to study and experiment with the rest of it 
later. Basically, you should eventually understand the 
following to use this program. All the rest is 
"additional information": 

1 ) Use EX.10 to get; 

a)the DL to look about right. 

b)the numbers to POKE into 87, 88, and 89. 



-26- 



2) Take EX.11 and change the POKE values 
to what EX.10 will give you when you 
tranfer the numbers from EX.9 into 
the DL data of EX. 10. 

3) Try to change the graphics and text we 
used to your own. 

4) If you have more regions than the example 
has, add more. Likewise if you have less. 

5) Remember to treat each area on the screen 
like it was a small screen by itself... 
don't PLOT or PRINT too far. 



A GRAPHICS I7S? «6 .;; "" EKAMPLE EI3" " 

2 F O R W= & 1" O 2 3 ® s P' O IK E 7 .:«.. & „ W 

3 F O R Z R = .1 T O A :: H E H T Z R 
4- M E H T M 

5 E> I M IP C £ a @ 3 8 ll> X M N U M C 2 S 5 ll> X M MO D E C 2: 3" S IO X M R ft M 
CIS} li> X M S T ft R T C 2 3" S &> X W P © C 32 » ! E» X IN II-"" 8 3' C 2 O S s i> X 

M L. I M c J. 5 ::f 

;?" 6> X IM 33 A M C JL S 3 

.1. O T R ft R 4 ■» 

2 6 DIM ZK$ £1353 

3:0 GRAPHICS li? ""THIS EH ft IN RILE iiLLOWS VOU TO C 

HAHGE ft MODE & S> X S R L ft V LIST!" 

,4 0i ■?• "PRE/SS EXjCIIli TO BEGIW . »« :; 2 "WRITE &OWM TH 

IE N UMBERS IN THE OH WHEN VOU LIKE T H EM » " " 



„ 32 s 4- .,, 4 , 4. ,, 4- j, 4- ,, 32 

6 S> ft T ft , O * » ® * ° ■" e * e * ° -" lB * ° " e * ** •" & * *" * lB * 8,0, .,. O 
.,. j. O .„ .„ O ,. .„ O ., .„ „ ,, „ .„ .„ 6 5 , 3 32 .„ X S © j, 

•;;?■ fli j> A T ft ... j. j. .» « .(- j. * j .1- .« ... « * j- ... 4. ... 

.„ , .„ .,, , ,, .„ ,, * ... * * * S * 3 2 ... 1- 5 © , 

© & 8> ft T ft , r * ji j * -h ^ * .<■ * * 4* .„ j, , , ,. , 

, , O , & , ., , , , ... n , , j 6 S * » 2 * -!!•• 56,0 

9 & POKE 53279, 8 

.1. O0 Z = PEEKt5 3 2 7 5 1 

.1.1.0 IF Z~ :6 THEM A 4 

JL 32 G O T O .1. 

JL 3 T R ft P 4 -9 © 

1. 4- O G R ft R H X C S O 8 P O '5 X T X OH 2 , 3 

.1. 5 L. X S T 5 © , O 

.1. & POS X T I 8N 2 , JL » S 2 " " C H ft N G E T H IE U> ft L ill IE S V O IB Wft 

M T B V y S X N G T H E C U R S R C H T R O L S „ " " 

170 2 ""PRESS LllMMEIII TO SEE THE MEU SCREEN . "" 

..1. S O P O S X T X H X O , O 

X S> O X INI R Li T Z K S 

2 O P O S X T X O IM O , :Z 

2 X O P O IK E O 4 2 „ .1. 3 

2 2 R O S X TION 2 ,. X 7 S 2 "CONT" 

2 3 O R O S X T X O Ml & , 2 S S T R 

2 4- P O RE B4 2 , .1. 2 
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259 RESTORE 50 ! Mft K = 

2 60 T R ft P- -4- 9fl:R E A t> 3 ! X. F 5 > J. 5 T H IE N 2 6 8 

2 65 IF 3 > M A K "I" H E H M A K = S 

278 IF S=8 THEM 20 A 

2 S G O T O 2 ft 

2 .1 O M M A M G O T O 2 5 ., 2 S , 2 6 ., 2SS, 2 S ,20 S , 2 85, 2 

8 3 , 2 53 , 2 S ,286, 2 7 , 2 8 7 , 2 8 ., 288 

2 8 S IS 5 E = : G O T O 2 » 

2 6 U5E=2 2 S G O T O 2 3 8 

2 7 U 5 E = 2 3 5 G T O 2 3 & 

2 8 U 5 E = 2 4 

2 -5' REST O R E 5 

3 O TRAP 4 3 

3 X I ■-- tiGR ft P H X C 3 «Jt 3 E 

3 2 B> L = P E E IK C 5 8 ) + 2 S 6**P E E IK C S 6IJ 

3 3: ft = P E E IK C » L + 4 3 ;B = PE E IK C g> L * 5 3 

3 4 R E ft I> G : I F G = 8 T H E N 3 9 8 

3 S P IK E B> L #■ X - JL , G 

3 6 X F X ■-• 5 T 8-1 E M P O IK E S> L + .4 ., ft 

3 7 O I F I = 6 T H E Ml P K E a> L. •*• S , IB 

3 8 X--I-8-.1. S GOTO 3-4 

3 9 F O R O = J.. T X :; H E K T 8 :; P O K E 8 7 , 

4 P O 5 X T X O H 2 , .1. :: "? " » P R E 5 S LIHOIK0I3 F O R C H ft R T 8 F 
PLOT W A LUES WH EM DOME „ "" 

4X0 2 "PRESS EIMW'SI'*!! FOR THE ORIGINAL DISPLAY 
L X 3 T ltd: " 3 „ « « 

42 2 ""PRESS E:i:i:=SIlLi TO CHANGE CURRENT RIl 
H U MB E R 3 „ " " 

4.25 ? ""press lacEiaa « snmsc] to run last 

EXAMPLE . "" 

4. 3 POKE 5 3 2 7 3 , 8 

4 4 O Z. ■-- P E E K € S 3 2 7 3 J 



5 €S X 



T H E m 4 3 O 



4 6 IF Z=6 THEM 78 

4 8 5 I F Z = 2 T H E M R U M B " 9> 5 E K ,1 X " " 

4 7 8 IF Z = 3 TIH EM 5 5 

4 8 G O T 8 4 4 

4 3 T R ft P 4 8 8 8 S G R ft IP H X C S 8 s P O 3 X "il" I O N 2 , 4 

5 2 " " 5 O B> ft II" ft X X 2 , I X 2 , A X 2 , © 6 , " " $ ft j " " . " " j 6 I " " .,. 2 ., 2 
.„ 2 , 2 .„ 2 .„ 2 j, 2 , 2 .,. 2 , A f 4 ^ ^ j 4. f 4. f -?■ r , 2 , 2 , 2 , 2 ., 2 , 2 , 2 ., 2 , 8 5 
, 3 2 , X 5 .„ » » 

5 X © ■? " " 6 O E> ft T ft , 8 , © „ ,, „ , , j, .„ .„ m t , 8 * © * 8 * 

j. .,. O .„ O _,, iB , „ e t (| __ e , p f p p e n f 8,8,65,3 2 „ J56 fli » « 

5 2 2 - " 7 O 8> ft T ft , e , , e , _, „ j e # e f & & fl ^ & & ^ * @ ^ & ^ 

, , , , „ ,, „ o „ e , „ n e „ e f & r e ^ e ^ e jr 6S ^ sa _ f se ^ &ui[ 

5; 3: ? " ■ a n> ft t ft , , m , , © .„ , , , .„ „ © , e „ e „ e t m 
, , , „ .„ ,, , ,„ & , „ „ e t e jr ( e p a {i &5 ,,.., ' * 

5 4 8 GOTO X80 " 

350 r e s T R it::: : p ik: e 5 s 3' , 

5 8 ,.J = X ! K = X ! L = 2 ;: P C X 3 = ;P E E IK « B> L + 3 3 — 6 4 

5 7 R E ft ii> P R ! P C L 3 = P R : I F P £ L 3 > X 5 T H E Ml 5 7 O 

5 8 X IF' P C L ::» ~ T H E Mi © 2 
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598 X F P (L.3 (>P( SL -~ JL J T H E N MO D E £ IK 3 = P C IL - X 3 iN U M £ HI 
3 = .J - J = isL = IL + .1. s K = K + X : G O T O 5 7 
6 G0 J = J + A S I_ = t_-*-X ! GOTO 5 76 

620 MO D E CK 9 =PC L. A 9 ! IM U M C IK 3 = J 

6 3S RAMC2 .'J = 4. i R AM( 3 3 = 4- S R ft MC4 9 = 4 ! If* ft M C 5 9 ~ 4 & : R 

ft M if .1 3 9 =4-0 s R ft M C X 4 3 =40 s R ft M C15J = 4- O 

6 3 3 L. X N(2 9 = 8 S L. INC 3 9 ~ .1 ! «... 11 M C 4 3 = 8 :: E X N (S3 = X © S IL. X M 

£ X 3 9 = 2 S L X M C JL 4 9 = X ! L. X HflS 9 = X 

6 3 4- LINC6J ■•■--: 8 ! II.... X M C V 3 = X 6 S iL X M C 3 = 8 ! E X N £53 = 4 : IL. X N £ 

X 3 -•- 4 : L IN C X X 3 = 2: s i... X N £ X 2 3 = X 

6 3 5 R ft M C63 = 2 O ! R ft M C 7' 3 = 2 S R ft M C 3 = X O S R ft M C 3 3 = X : R 

ftM (if»3 =ZO s RAM C.JL iJ =20 ! RflM(12) =20 

O40 FOR H = X TO K 

4. 4 ft M £ 2 3 = S B ft M £ 3 3 = 4 5 IB ft M C 4. 3 = 4 ! B ft 11*8 £ 5 3 = 46:13 ft 

M £ X 3 3 = 7 5 ft M C X 4. 9 = 4. O S 18 ft M £ X S 3 = 8 

& 4- 5 B ft M £ © 3 ■■•-. x S B ft M £ 7 3 = 2 ! B ft M C 9 = 3 : B ft M £ 3 3 = 4 5 B ft M £ X 

O 3 ~-- S 5 B ft M £ X X 3 = 8 B ft M £ X 2 3 = 4. 

©GO XIF MODE CM 9 <MODE CM — 13 THEM ©BO 

©70 Hi ft HI "-MODE CM 3 

6 © W E K T H 

© 3> © I F S ft W > 6. T 11-11 EM 7 2 O 

7 © X F 3 ft W > T M IE M 3 ft W = © S G O T O 7' 2 O 

7 X X F S ft M < > 1" M E M 2 • a E R R O R ft T 7 X O ., . 3 ft W S M O ILB L. 

D BE a " S STOP 

7 2 M ft K R ft M = R ft M C 3 ft M> 3 

725 FOR M=JL TO IK S M2 = 8 ! H3 = « 

7S5 FOR 3 = X TO M"X 

740 IF RftM (MODE £39 9 =20 THEM 7©© 

7 5 O I F R ft M £ MO D E £ 3 3 3 = X T H E M 7 7 

7 5 5 GO T O 7 B 

7 © O M2 = M U M £ S 9 + M2 ! G O T O 7 

7 7 O M 3: = IM U M £ '5 9 + M 3 

7 B IM E K T 3 

7 3 R = 

785 FOR W=X TO M- X S R "■■ R + Nil M t MS "MEM! W 

7 » C MRP O 3 ■■-- ft + B-**2 5 © •#■ C R*£-Mft M R ft M-- M2* C Mft H R ft M 2 O 9 — M 

3 H* C Mft K R ft M~- X 9 3 

7 3 5 :i: IF M = X T M E IM C M R P O 3 = ft * B « 2 5 © 
O S T ft R T £ M9 = C M R P O S 

8 X O IM E K T M 

820 FOR Z=X TO K s P09 CZ9 =I«T C5TART £Z9 /2SS3 S P88 
€ Z. 9 = S T ft R T £ Z! 3 - P 3 C z: 3*25 © :; W E K "II" Z 

8 25 ■5ILIM--B 

8 3 F 8 R U = X T O IK S 3 U M= IM U M C 9 ***_ X M C MO D IE C 3 3 + 3 Hi M a 

H E M T 

& 4- © G R ft P HI X C 3 3 P O 3 I T X O M © , ! 2 " " r .--..»^^».^«......— «— «-— «-»«- 

8 5 © P O 5 X T X O M , .:«.. s 2 » " | R 5 ii P O il< E 1 O . S » I « E X M E S I 
P OIK IE 8 IP OIK IE 1 '•"' 
8 & © P S X T X O M j 2 a "? 
XMT0 8 XMTO il "" 



8 OM Ii XMTO i MODE 1 OH r - : I'ftI 5 il 
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6 76 POSITION 0,38? "" 1 SCB | 8 7 II » S MO&E il 

8 8 ii 8 3 ii " " 

S 8 & P O 3 I T X O ii'4) „ 4 S ? " " L l OT I M " I MWn,M * MMIM,M,, , M ' ' """' ■ ' 

, _.,.(! tl il 

aaan ■,itutuu:ua;Miuu:itiunii^uauaaiuiumutiiaa-:.^... .uiiwwm 

890 FOR M=JL TO i!< 

S 9 5 3 E> = B ft M £ MO 10 E C W3 3 

s 3 © IP o 3 x 8" x o w .1 ., 4. * w s ■? w i 

9' 01. IF S8>~4 THEM 963 

3 © 2 p O S .X T X O M ,, 4 •*■ M S ? 3 il> J S O T O 3 4. 

9 8 3: p O -5. X T X O W , 4 ■*• W S "? " " N M E " » I 

■9 4- P O 5 X T X O 94 1. :Z , 4- + N : "? MO D IE C WJ S IP 3 X T X N J. » 4 ~ l( - 84 

s '? M III! M C w::» s p o 3 X T X O M 2 S .,. 4 *■ N ;: ? P 8 * M3 ; 

■3 fli 5 P O 3 X T X M 3 3 , 4 ■#• W 8 "? P © 9 £ N 3 

■9X0 KEHT Mi? "THE MUMBER OF PIHEL LIMES III! 3 E D = 

" " J 3 U M J " " .. " " S • ? " " 3 U G, til E 3 T V U C Hit ft Ml E HI O N T X 8..- 1. 3 2 

p :i: k 85: t. il. :i: m e s ir e s u l. t 3 8 " " s 

3 1. S ? " COPY NUMBERS OR PRESS EljEIiill TO KEIOO 

C iUS R R E M T [ill ."1 "? « ■ RftPHIC S H"8 il> E "8" O U 3 E X M E K . X .1. 

X 3 » » | U 3 IE 

SI' 2 P O IK E 5 5 3 .„ 3 4 

9' 3 O IP K E S 3 2 7 3 ,. 8 

•9' 4.0 Z = PEEK £53273) 

3 5 IF Z=0 THEM 146 

•3' © O T O 3 4 O 

3 3 3 E H D 

EXAMPLE 11 
LAST EXAMPLE 



This PLOT is just like EX.9, but now we add POKEs to 88 
and 89 to fool the computer Into acting as if the upper 
corner of each mode was position 0,0. The POKE to 87 then 
says "act as if you're in a regular graphics mode #" (your 
input). Now we just PLOT or PRINT as if each section was a 
small screen with 0,0 at the top like normal. If you PLOT 
too far, the next region down will look funny. We include 
the code for this example (minus a few lines you don't need) 
since this example is all you really need to understand. Our 
other examples will do all the calculating for you. Make 
sure you change the 5th and 6th numbers In the data I 1st to 
the correct values for your computer, as txplained above. 



IS GRAPHICS X7 1T «*©!«" EXAMPLE BBS" 

2 iB F O R 84= J. T O 2 3 S P K E 7 1. , 84 

30 FOR ZR--1. TO 18 a MEKT ZR 

4 M E K T M 

SB ? «0.;;»« IL-ailH ExREP lQ I "" 

F O R M= X T O 2 3 8 P O K 85 7 © » 84 8 P O K E 7 3 ., 84 3 IP' O IK E 

7 X , 84 S P IK! IE 7 X X , W 
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tB 5 F O R 2 R = J.. T O 5 : N E H T Z! R 

7 M E K T M 

BO G R ft P H I C 3 .1. 7 S '? tt 6 ; " " T O M A tK E T H I S E K A M P II... E " " 

3@ ? tt6j"HORK, YOU MILL HA WE "" 

1. © © ' I?- m © Jj " " T O C !HI ANGE T IHI E W ft IL. t J E 3 " " 
.1.18 ? »&;"EflCU TIME POKE 88 Off*"" 
.12© '? *t6j'*89 IS USED, THIS .15 ■« 

1.3:0 ? «6;"&ome by SICIjSIIMIIH THE"" 

±4-0 ? tt6j"UALUES IN THE DL OF »' 

1.5 "■? tt6j"THIS EK. INTO GEJHD03 - " " 

J.68 ?■ tt6;""the chart will give "" 

l/e ? *t© .;: ""lyoiij tHe values iPor* "" 

.1 © "* **© j » " & & c Si, mo dl e a r- e a . EGEEH" !i 

1. -3' ? t *e $ ■ 'ama/EBB Basra mmsm %mm« ■ 

2: POKE 3* © 4- , 2 5 5 

2 A I F P E E K C 7 © 4 % < > JL 2 T H E H 2 1. © 

4. O O R E M *E-#H*^«-*e«-5*-»*H&iW*Hfr^^ 

59 REM THIS IS ft SUBROUTINE FOR VOU TO USE A 

S A IP R ft C T I C E E K A M P L E I IM P II... O T T I IM G A N «> Ml R I T I H G 

TO THE AREAS OF THE 

5 O 3 R E 84 S C R E E N T H ft T V O U S E T U P I N T H E IP R E W I O u 

5 EK AMPLE .. JUST RE HO TIM TIME: POKE VALUES FOR L 

O C ft T I O IM S O 7 „ S © „ .SO 3 

584 REM AND CHANGE TIME NUMBERS IM T IHI IE OAT A ST 

ftTEMEMT TO THOSE VOU WROTE IL>OM!M FROM TIME LAST 

E H ft MR L E „ IP" I N ft L L V . V O O 

5 O 5 R It." M 5 IM O IUI L C- C H ft N G IE T H IE P L O T ft H ll> P R I IM 1 S li ft T 

EMENTS TO THE ONES VOU NANT . HAVE FUN. . „ SEE V 

OILS IN THE IMEHT TUTORIAL » 

5 6 R E M WKXKXK WK-S XWMKM M - KW'K'M : M.M'M. W-W - iiC 'i M: - W -WHW-a»& 

5 7" G R ft P H I C S O : R E M fsl'' j lilffiff&E'Mi t i ajflai ,, R E M IE M B E R T O 
USE THE GRAPHICS MO&E THAT THE CHART GAME VO 
U . 

S 1. GO S IS B JL O O 

5 1. 5 P O K E 7 , 1. S IP O K E © , 4. B IP O K E 6 13' , A. 5 © S P O 5 I T I O IM 
O „ O 3 ?' **© s " " T H I S 3E S B I G L IE T T IE R S " " 

S 2 ? «* ;. " " O IM T W O L I IM IE S " " S ■?' « O ; " " O R T H R E E " " 

5 4. O P O K E S , A 2 4- ! POKE S , 1. 5 & 

550 POKE 87,4:COLOR A i PLOT 1. „ O : 10 R A WTO A,A.©Sl»R 
ft MT O B , A ! P L O T ■*■ 5 * A l|31 » l> *» A WTO J. 5 .„ 5 S P IL. O T 3 .„ JL ;; E» 

R ft WTO 3 j. 3 

5 5 5 P IL O T 5 , .1 ! U> R ft WT O 5 , 1. S IP' IL O T 7 „ 1. © 8 ID- R A MT 7 .„ 7 

S P L O T 9 , JL : tt> R ft W T O 13> , 3 8 P L O T JL 1 , A 8 S> R ft MT O A 1. , 4 

;: P IL... O T A 3 .„ A O ;: & R ft M '&" O A 3 , 

5 5 7 POKE OO ., 2 3 4 ! P O K E © 9 ,, A 5 & 

500 POKE ©7 , 2 8 POSITION ., ! f i*© I " "GiMIIMHlXlBHLlKMl 
i'UC'SiOT i n f act a rn en it h e r- t: h r- e © r* o ws o *= «? m" " 

5 © 5 P O K E © a- 5 8 : P O K IE 1? , A 5 7 

5 7 O P O K E 7 , : P O S I T I ON , : ? " " ft N ID' O F C O SJ R S IE S 

OME TIIMV TEKT PRESS RETURN TO GO O IM ' ' 

7 3 IP K E 5 3 2 7 9 ., 

7 4 Z = P E E K C 5 3 2 7 "? » 

7 50 IF Z=6 THEM 2©©O0 
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'.?' iS G O T O 7' 4- © 

ji. m » T IR A IP .1. & 4 

XO013 &L-PEEK CIS ©OS +2S6*-PEEK £5613 

.1. flt & X .1. Z .1 = P E IE IK' € »> B_ *■ 4 3 S Z 2 = P E E IK C J> L. •*■ S 3 

A & O A :Z I -.-■ X 

JL & X 3 IR E A l!> ft S X" F A = Q T Hi E N J. © <B 4 

.1. © © JL 4 IP O K E £ S> L ■+■ X ~ .1. .'» .,. A 

JL A 5 :i: F X = 5 T H IE H IP O IK E S> L. + 4 ,, Z X 

jl. eels :i: if x = © r h e h ip o k e il> l + s ,, z. :z 

.1. 2 X " X ■*■ .1. i «G T O .1. iB .1. 3 

X «i 3 ll> A T A X X 2: , X X 2 , X X 2 „ '7 © , © 4 „ .1. S © , © , 6 , 3 t 9 , 9 , 3 * 

■» , '9 .„ 9 .,. 3 , -3 ,, -9 , 9 ,, ?' „ •/ „ 7 „ y , 2 „ 2 ^ :Z ^ 2 p 2: ,2,2.,©®, 3 2 , X 2 4 

, , .,, fell 

X 4 IR E T u u m 

It & G R A P H X C S S P IK E 7' X , & 

2 000X '? »« THANKS FOR BUYXIWHK FROM S A IMF A CRUZ! E 

ll> O C A T X O H A IL S O F T MA R E S S 5 " « Jl i6 "II'" 2 X 



Final Not 



Sometimes when you do your custom screens you probably 
will have your text or plot suddenly shift over like this 

to the other side of the 
screen. This is because your Display List is going along 
at, say, modes using 40 bytes per line when you shift and use 
three lines of a mode using 20 bytes per mode. The system is 
still trying to place the data where it used to go, so if 
you use 40*s then switch to 20's or 1 ' s , keep it in 
increments of the largest value. For example, if you use 40 
byte modes then if you have 10 byte modes either use 4, 8, 
12 , etc., so that the computer can find 40 at a time. DON'T 
FOOL MOTHLR ATARI ! 

We also want to warn you that EX.10 occasional ly can be 
fooled by unusual inputs, so If the chart seems incorrect it 
may be. This is not a serious problem because you are going 
to learn to do all the calculations yourself, AREN'T YOU??? 

The other modes in the chart (FIG.1) that aren't 
explained are for things I ike lowercase descenders and 
multi-colored letters. See, I told you not to ask. These 
would be good topics for another Tricky Tutor I a I ( tm) . Well, 
maybe SOMEDAY 

Well that's it. If even a new programmer will experiment 
with these examples, he or she will at least be able to make 
some nice custom screens without having to understand It 
all. 
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TRICKY TUTORIAL #2 

HORIZONTAL AND 
VERTICAL SCROLLING 



HORIZONTAL AND 
VERTICAL SCROLLING 



This program will teach you the 
basic principles of moving text or 
graphics on the screen. Movement can be 
in any direction that you choose. A 
total of eighteen examples are provided 
plus a 15 page manual to explain them. 

Each example, including those with 
some assembly language subroutines, are 
designed to be easily placed in your own 
programs. Anyone with some knowledge of 
the BASIC programming language can use 
the examples now, and later study the 
manual in more detail. This program is 
part of a continuing series and goes 
particularly well with #1 - Display 
L i sts . 

REQUIRES 16K OR 24K IF YOU HAVE 
DISK. 



Educational Software 
4565 Cherryvale 
Soquel, CA 95073 
(408) 476-4901 



i nc . 



Educational Software 



presents 



TRICKY TUTORIAL #2 



Horizontal & 
Vertical Scrol ling 



TRICKY TUTORIAL #2 

HORIZONTAL &c 
VERTICAL SCROLLING 

by 
Rob i n S herer 

( c ) 1981 by Educational Software inc. 

INTRODUCTION - Hi. I'm going to start out this tutorial with 
a sales pitch for one of the other tutorials I teach. As 
phony as this sounds, I can't help it. To fully understand 
how to scroll you need to also study Display Lists, Tricky 
Tutorial(tm) # 1. However, if you just want to be able to do 
the different types of scrolling in your own programs, THIS 
WILL DO IT FOR YOU. I'll tell you what to modify without 
great exp I a I nat i on . All of the examples have different 
features. Some are faster, some smoother in their scrolling. 
It's up to you to take parts of our examples and make them a 
part of your programs. 



HOW TO LOAD 



TAPE 



Place the tape In your recorder, label side up. Make 
sure the tape is rewound, and the BASIC Cartridge is in 
place, and always reset the counter to zero. Push PLAY on 
the recorder and type RUN"C: and press RETURN. If the 
program won't start to load, try positioning forward or 
backwards a little. The easiest way to find the beginning is 
to listen to the "noise" on the tape with a regular 
recorder. When you find the steady tone, you have the 
beginning of the program. We recommend you write down the 
number on your recorder's counter as each program example 
starts, this will make it easier to find each part later on. 



D I SK 

To load and run the disk, first turn on your disk drive. 
When the busy light goes out, place the disk in the drive. 
Now turn on the computer, with the BASIC Cartridge in place 
and the program will load each part and run by itself. 



Any defective tapes or disks should be returned to 

Educational Software inc. 
4565 Cherryvale 
Soquel, CA 95073 
(408) 476-4901 



ALL RIGHT STUDENTS! LET'S BEGIN WITH (SURPRISE!) 
EXAMPLE ± 

Bas i c I deas 



If you haven't already, run the first example. To get to 
the next example each time, you only have to press START. 
Note - cassette examples should run themselves when loading 
is done. If not, type RUN and press RETURN. You may have to 
rewind some examples to the end of the last example and try 
several reloads. Remember that this tape has many examples, 
so it is harder to LOAD them all than some small games. 

Plug in a Joystick into Port 1 on the front of your 
console. You are now looking at a listing of the example 
that is running. I listed it as an easy way to get text on 
the screen to scroll. This example, and all others where we 
use LIST to get text on the screen, will work exactly the 
same if you take out the LIST statement and substitute your 
own PRINTing or PLOTing. Do this as soon as you feel you are 
beginning to understand the method. 

If you move your Joystick to the left or right, the text 
will move in that direction. Look closely at the text as it 
moves. Notice that it moves one character at a time in 
either direction. This is called COARSE SCROLLING. Later, we 
will learn how to move one pixel at a time which is called 
FINE scrolling. Eventually we will combine both methods for 
(guess what?) COMBINED SCROLLING. 



Take a Break .... 
OK! Back to Work 



Warn i ng 



In most of our examples we wanted to keep the amount of 
BASIC code short, so if you move too far in any direction, 
the POKEs we are doing may cause the program to error and 
stop. To avoid this problem in actual examples, you will 
have to make sure you don't try to POKE a number larger than 
255 into memory. Some of examples will automatically do this 
for you. To restart a stopped example, just press RESET and 
type RUN. 
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Here is the code for Example 1, a simple coarse 
hor i zonta I scro I I : 

10 DL=PEEK(560)+256*PEEK(561 ) 

20 DL4=DL+4:DL5=DL+5 

30 PDL4=PEEK(DL4) 

40 ST=STICK(0) 

50 IF ST=11 THEN PDL4=PDL4+1 

60 IF ST=7 THEN PDL4=PDL4-1 

70 POKE DL4,PDL4 

80 FOR W=1 TO 50 .-NEXT W 

90 GOTO 40 

THAT'S IT! 

Another note - Yes we know that If you list Example 1 it 
has more lines than this. The missing lines above were put 
in Example 1 to make it have a title and ca I I Example 2 when 
you are ready. The same differences will occur with my other 
examp I es . 

To better understand this method, first a few basics from 
the Display List Tutorial. The Display List is a set of 
instructions in memory that the computer uses to find out 
what to put on the screen. By changing it, we can do many 
programming tricks that are not only interesting to look at, 
but useful. Scrolling is one of those tricks. 

Line 10 above looks at locations 560 & 561 by use of the 
PEEK command. The values in these two memory locations 
combine to give you the location (called the address) of the 
first byte of the Display List. They are combined into the 
address as line 10 shows. ANYTIME you have a 2 byte address, 
the method in line 10 is used. Whenever you use the 
"GRAPHICS #" command, the computer creates a standard 
Display List somewhere in memory and puts the location where 
the DL starts in memory locations 560/561. 

Now that we know where the DL (Display List) is, line 20 

stores the address of the low part (DL4) and high part (DL5) 

of a number that is always the 5th and 6th numbers in the 

DL. Note that we call the 5th number into the DL, DL4, 

because it is equal to the value at DL plus 4 more, or the 

5th number from the start. Confused? Then just remember that 

these two numbers te I I the computer where to go get the data 
for the screen . 
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IMPORTANT! 

You must understand what these two numbers do. Scrolling Is 
based on changing these values. Let's look at a sample GR. 
Display L i st : 

112 1 12 1 1 2 66 95 34 2 2 2 2 2 2 2 2 2 
222222222222222 65 89 56 

The first three numbers are 112's that tell the computer 
to display 8 blank lines each. The next number is called the 
Load Memory Scan byte (LMS for short). This is the number we 
are about to change. The LMS says to the computer "Go get 
data starting at the location in memory that follows in the 
next two numbers ... an d by the way, start the screen with 
some of this kind of text (or graphics)". 

Wow. I can't learn this! 
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The next numbers within the DL, the 2's te I I the computer 
to put a line of Graphics on the screen for each 2. Again 
the chart will give you these numbers later for other modes 
and types of scrolling. There are 23 2's plus the line of 
mode that the LMS created gives 24 lines of mode 0. If you 
want, look ahead at the chart to see all of this. Under 
Graphics mode it says to put 2 in the DL, ie. 2 is the 
instruction that MEANS put some GR.O on the screen. Finally 
comes a 65 that means all done, go start all over again 
using the DL at the location in the next two numbers 
(usually the same DL). 

Ok! So far we have found where the data to put on the 
screen is located (lines 20-30). Now, in line 40 we read the 
Joystick. If it is held left, then we take the value in 
DL+4, called here PDL4, and add 1. If it is held right, we 
subtract 1 in line 60. Now line 70 POKEs this changed value 
back into the DL at DL+4. This says to the computer "start 
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displaying the data on the screen one byte more (or less) 
than where you did before." S I MPLE ..??... Sure , why not! 

Line 80 Is a delay loop to slow the action down so we 
can see what is happening. Line 90 then goes back to read 
the Joystick to see if you want to move the display some 
more . 

Notes : 

1) You can speed up this method by changing or leaving 
out the delay I oop . 

2) So far we haven't changed the high part of the data 
address (DL+5). If you try to move continually in 
one direction the value of PDL4 will reach or 255. 
Recall that the ATARI uses 8 bits per word in 
memory, ...and 8 bits In binary only counts 

to 255. When this happens, the number you POKE 
into DL+4 will no longer have any effect. Actually 
it is causing errors that the example is TRAPing 
to keep the program going. It's sort of like 
bottoming out. The simple solution is to do some 
mathamatics to change the high byte (DL+5) when 
needed. We do this in Example 2. 

EXAMPLE 3 

This time we scroll vertically: 

10 GRAPHICS 

20 DL=PEEK(560)+256*PEEK(561 ) 

30 DL4=DL+4:DL5=DL+5 

40 NUML=PEEK(DL4) 

50 NUMH=PEEK(DL5) 

60 ST=STICK(0) 

70 IF ST=14 THEN NUML=NUML+40 

80 IF ST=13 THEN NUML=NUML-40 

90 IF NUML<0 THEN 140 

100 IF NUML<256 THEN 160 

110 NUML=NUML-256 

120 NUMH=NUMH+1 

130 GOTO 160 

140 NUML=NUML+256 

150 NUMH=NUMH-1 

160 IF NUMH<0 THEN 60 

170 IF NUMH>255 THEN 60 

180 POKE DL4,NUML:P0KE DL5,NUMH 

190 GOTO 60 
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The only real difference in COARSE vertical scrolling 
over that of horizontal is that to move vertically we want 
to add or subtract 40 instead of 1 . Do you know why? Of 
course! It's because we are using the ATARI'S standard 40 
characters per line for mode 0. Thus, to move the LMS 
address up one line, add 40. This is done in line 70. For 
other modes you may need to use 20 or 10 instead of 40. Look 
ahead at the chart under the row "Bytes of memory per line". 
Also this time we include the mathamatics to change both 
numbers of the address of the data to display. The math 

won't be explained just use It as is. It is standard 

computer math explained in most references. Finally, note 
that no delay loop was used. The extra math delays the 
computer enough ! 

e:x<=hmi=-i_e: Z2t* 

This is a new example added by suggestion from one of 
our customers. Some people didn't see how to combine 
horizontal and vertical scrolling, so here it is. You can 
later do the same thing for FINE scrolling. See Micheal, I 
told you I listen to my students! 



1 GRAPHICS 17:? #6;" EXAMPLE 2A" 

2 FOR W=1 TO 230:POKE 710, W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 GRAPHICS 

20 LI SI 

30 DL = PEEK(560)+256*PEEK(561 ) 

40 DL4=DL+4:DL5=DL+5 

50 NUML=PEEK(DL+4) 

60 NUMH=PEEK(DL+5) 

65 POKE 53279,8 

70 ST=STICK(0) 

80 IF ST=14 OR ST=10 OR ST=6 THEN NUML=NUML+40 

90 IF ST=13 OR ST=9 OR ST=5 THEN NUML=NUML-40 

92 IF ST=6 OR ST=7 OR ST=5 THEN NUML=NUML-1 

94 IF ST=10 OR ST=11 OR ST=9 THEN NUML=NUML+1 

95 C0N=PEEK(53279) : I F C0N=6 THEN 1234 
100 IF NUML<0 THEN 160 

110 IF NUML<256 THEN 175 

120 NUML=NUML-256 

130 NUMH=NUMH+1 

150 GOTO 175 

160 NUML=NUML+256 

170 NUMH=NUMH-1 

175 IF NUMH<0 THEN 70 

177 IF NUMH>255 THEN 70 

180 POKE DL4,NUML:P0KE DL5,NUMH 

190 GOTO 70 

1000 POKE 53279,8 

1010 C0N=PEEK(53279) : IF C0N=6 THEN 1234 

1234 POKE 764,12:RUN "D:EX3" 
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Lets sketch out an abbreviated screen of data 



< 40 > 

Characters 

r n 

I AM BEC 

AUSE ALS 

24 I i nes 
tota I 

v ; 

GR.O 



AM. . 



256 

Characters 



BECAUSE AL 



SO. . IN A 



24 I i nes 
tota I 

< 40 > 



is stored in memory as, 



33 * 

27 First 40 
41 #'s that go 
as 1 st I i ne 



19 



14 

32 2nd 40 #'s 
= 2nd I I ne 
on screen 

\1_ 

etc. 



Figure 1 



is st i I I stored in memory 
like this... 



/N 



47 * 
9 

21 1st 256 
#' s used 
for 1st 
I I ne 
14 



\1/ 



19 

87 * 

2 2nd 256 
# ' s used 
for 2nd 
I i ne 
62 



sk 



etc . 
Figure 2 
* This number is stored in your memory at ( DL+4 ) +( DL+5 ) *256 
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Look at the top of Figure 1 . The box drawn represents a 
screen area which is 40 characters wide by 24 down. You can 
see that if we attempt to scroll horizontally over this 
area, we have nowhere to go, so the data on the last I i ne 
just moves up to the next I i ne one character at a time. What 
can we do? Figure 2 shows some data that is now wider. How 
wide is optional with you. Since memory is always stored 1 
value at a time, you can set up lines of any width. It is 
the use of more than one LMS byte that sets up different 
line widths. The box that represents the screen now has room 
to move to either side when horizontally scrolled. 

The idea in the above paragraph is not easy to grasp. 
Let's start with some basics. Memory is organized like a 
very long strip of numbered locations. When we say to PEEK 
at (look at) a certain memory location, what we are really 
doing is to go down this strip of locations until we get to 
the number in question. Then we read what is written there. 
Got that? Good! When the computer starts to draw the 
screen... 60 times a second ....it goes out to the location 
we discussed earlier (DL+4 and DL+5). There it gets the 
location for the start of the screen data. In a 48k machine 
in GR. 0, this would be at 40000. If an "A" is currently 
being displayed in the upper left corner, a PEEK at this 
location will show "33". 
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1 GRAPHICS 17:? #6;" EXAMPLE 3" 

2 FOR W=1 TO 230:P0KE 710, W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
5 P106=PEEK(106) 

10 POKE 106,PEEK( 1 06 ) -24 

15 GRAPHICS : L I ST 

20 DL=PEEK(560)+256*PEEK(561 ) 

30 P560 = PEEK(560) : P561 =PEEK ( 561 ) 

40 DL4=PEEK(DL+4) : DL5=PEEK ( DL+5 ) 

50 START=DL4+256*DL5 

60 FOR 1=1 TO 24 

70 POKE DL+3*I ,66 

80 POKE DL+1 +3*1 ,DL4 

90 POKE DL+2+3*l ,DL5+I 

100 NEXT I 

1 10 POKE DL+78,65 

120 POKE DL+79,P560:POKE DL+80,P561 

130 K=0 

135 POKE 53279,8 

140 ST=STICK(0) 

145 C0N=PEEK(53279) : IF C0N=6 THEN 1234 

1 50 IF ST=1 1 THEN K=K+1 

160 IF ST=7 THEN K=K-1 

170 FOR L=0 TO 23 

180 POKE DL+4+3*L,DL4+K 

190 NEXT L 

200 GOTO 140 

1234 POKE 106,P106:RUN "D:EX4" 



WE'LL TAKE IT SLOW: Location 106 holds the number of pages 
that your memory size allows. In my 48k machine it is 106. 
In line 10 we store the original value to restore in line 
230 when the program is done. Now, in line 20, we fool the 
computer by subtracting 24 pages from 106 (a page is 256 
bytes of memory). Then, in line 30 when we say Graphics 0, 
the computer looks at location 106, thinks memory is 24*256 
bytes less than it is, and places the Display List down by 
this much in memory. What we have so easily accomplished Is 
to save that many extra bytes of memory for a lot of data 
for the screen. Lines 40 to 60 store the location of the DL 
and the start of screen data as before. 

The next lines, 70 to 110, do a nice trick. Now that we 
have such a large area to use, we POKE the DL with a whole 
bunch of LMS, low, high instructions, with each address 
pointing to data 256 bytes further down in memory. So what? 
Well, now there are lines on the screen (run Example 3) that 
are 256 bytes long. With the Joystick you can scroll and see 
NEW information appear .... not from the row below, as before. 
Remember that there has to be enough of these LMS POKEs to 
fill the screen, which for GR.O equals 24, thus the loop 1 
to 24 on I i ne 70 . 
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The data we are scrolling over is again placed on the 

screen by the LIST command. Now you can see where the ending 

of each 40 bytes is, because that is where each new line of 
the program listing starts. 

To better visualize this, look at Figure 2 again. The 
LMS addresses should point to the data for the left corner 
of each line. It sounds complicated, but by using 256 long 
lines we can just add 1 to the original DL5 value for each 
new LMS we set up. The new value will point down by one line 
of data. ..256 bytes!! Remember that values in the high byte 
of a number equal 256 times those in the low byte (just use 
the example if this is too hard. ..come back to it later) 
Look at line 100 to see the above. 

You could, with s i mp I emathamat i cs , set up lines of any 
length you want, but lines of 256 characters were easier and 
clearer for a demonstration like this. Lines 160 to 220 
increase or decrease the DL4 number by one, as in Example 1. 
But now the I i nes are 256 wide, so we can scrol I without 
having characters jump up to the next line. Also note in 
line 200 that we only POKE every third line. This is because 
the DL must now use three lines of instructions for each 
line generated on the screen. 

What if I'm lost 

That is what is nice about the Tricky Tutorials — you 
don't have to understand all this. Just use the examples by 
copying them to your tape/disk and modify them with 
different PRINT and PLOT commands. The technical stuff is 
included to make a complete package for your use when ready. 
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Please run Example 4. Notice that we used Graphics 2 for 
this example. This was to show you that any mode will 
scroll. Also, we relocated the entire Display List to page 
six of memory (a reserved area for us to use) so that it 
could be modified while leaving the original intact. 

Different Graphics modes! 

What happens when you change Graphics modes? Well look 
at that famous chart we keep promissing and read the 
discussions I ater . 
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LOOK AT GRAPHICS MODE (0-8) THEN GO DOWN UNTIL DESIRED 
OPTION IS FOUND 



Des i red 
Opt i on 
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GRAPH ICS 
MODE 

3 4 5 
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DL # 
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8 9 


10 


1 1 


13 
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HScrol 1 
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22 


23 
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VScrol 1 


34 
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1 14 


1 18 


1 19 


120 121 


122 


123 


125 


127 
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8 


16 


8 4 


4 


2 


2 


1 


# Rows 
to fill 
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24 


24 


12 


24 48 


48 


96 


96 


192 


Bytes of 
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40 


20 


20 


10 10 


20 


30 
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40 
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Star 
8 Bl 
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10 GRAPHICS 17:? #6;" EXAMPLE 4" 

20 FOR W=1 TO 230:POKE 710, W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 POKE 1 536, 1 12 

50 POKE 1537,1 12 

60 POKE 1538,1 12 

70 FOR 1=1 TO 12 

80 POKE 1536+3*1 ,71 

90 POKE 1536+3*1+1 ,0 

100 POKE 1536+3*1+2, I 

110 NtXT I 

120 POKE 1575,65 

130 POKE 1576,0 

140 POKE 1577,6 

150 POKE 5b0,0 

160 POKE 561 ,6 

170 K=1 30 

180 POKE 53279,8 

19U ST=STICK(0) 

200 IF ST = 7 THEN K=K-1 

210 IF ST=11 THEN K=K+1 

220 FOR J=1 TO 12 

230 CON=PEEK(53279) : IF CON=6 THEN 270 

240 POKE 1536+3*J+1 ,K 

250 NLXT J 

260 GOTO 190 

27U RUN "D:EX5" 
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This example generates some random characters and POKEs 
them right into the screen data area. To some of you, this 
will look like a useless example, but please think a moment. 
In order to get the text YOU want onto the screen, just 
replace the RANDOM statements in lines 120 to 170 with PRINT 
statements. If your text is not 256 characters wide, then 
fill in with blanks. The text could be stored in DATA 
statements and then read in as needed. Think what a nice 
business spread sheet could be done! 

Did you notice that this example scrolls faster. The 
reason for this is that in ATARI BASIC, F0R-NEXT loops 
(which we use) go back to the first line and count forward 
on every loop. This means that they run faster if near the 
front. Also, if several lines are placed on one line speed 
increases. Finally, any math calculation should be done only 
once if possible. This example has these changes for you to 
study : 

50 X=DL+4:F0R L=0 TO 69 STEP 3:P0KE X+L,Y:NEXT L:RETURN 
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270 ST=STICK(0) :K=K+(ST=1 1 )-(ST=7) :Y=DL4+K 

310 GOSUB 50 

LINE 50 does the exact same thing as lines 190 to 220 
in Example 3. It is a subroutine to allow it to be moved 
to the top. Line 270 Is much faster than the two IF 
statements. I better explain it. If ST = 11 then the ST=11 
part will be TRUE, so (1) will be added to K. Likewise with 
ST = 7 . Since both can't be true at once, K will either go up 
or down by one each pass if the stick is moved. ATARI BASIC 
has it's nice points too! 



10 GRAPHICS 17:? #6;" EXAMPLE 5" 

20 FOR W=1 TO 230:P0KE 710, W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 GOTO 55 

50 X=DL+4:F0R L=0 TO 69 STEP 3:P0KE X+L,Y:NEXT L:RETURN 

55 P106=PEEK( 106) 

60 POKE 106,PEEK(106)-24 

70 GRAPHICS 

80 DL = PEEK(560)+256*PEEK(561 ) 

90 P560=PEEK(560) : P56 1 =PEEK ( 56 1 ) 

100 DL4=PEEK(DL+4):DL5=PEEK(DL+5) 

110 DL5=DL5+1 :P0KE DL+5 , DL5 : POKE 89,DL5 

120 SI ARI=DL4+256*DL5 

130 FOR G=0 TO 4 

1 40 FOR H=0 TO 255 

150 POKE START+G*256+H,G+1*RND(9)*100 

160 NEXT H 

170 NEXT G 

190 FOR 1=1 TO 24 

200 POKE DL+3*I ,66 

210 POKE DL+3*I+1 ,DL4 

220 POKE DL+3*I+2,DL5+I-1 

230 NEXT I 

240 POKE DL+78,65 

250 POKE DL+79,P560:P0KE DL+80,P561 

260 POKE 53279,8 

27 ST=STICK(0):K=K+(ST=1 1 ) - ( ST = 7 ) : Y = DL4+K 

300 C0N=PEEK(53279) : IF C0N=6 THEN 330 

310 GOSUB 50 

320 GOTO 270 

330 POKE 106,P106:RUN "D:EX6" 
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EXAMR-LJ 



What about a practical use? Well, how about a word 
processor that would allow you to input the width and then 
not wrap around, but rather scroll right or left as you 
want. To use Example 6, just type in a bunch of lines of 
text (almost filling the page is best). When ready, press 
RETURN. Now use the good old Joystick to scroll. If you look 
at the code, we added only a few lines. The POKE 559 at line 
140 turns off the screen until we want it on at line 220. 
This speeds up the ATARI and looks more professional. 



10 GRAPHICS 17:? #6;" EXAMPLE 6" 

20 FOR W=1 TO 230:POKE 710, W 

30 FOR ZR=1 TO 10:NEXT ZRrNEXT W 

35 P106=PEEK(106) 

40 POKE 106,PEEK(106)-24 

50 GRAPHICS 

60 DIM A$(255) 

70 DL=PEEK(560)+256*PEEK(561 ) 

80 P560=PEEK(560) : P561 =PEEK ( 561 ) 

90 DL4=PEEK(DL+4) : DL5=PEEK (DL+5 ) 

100 DL5=DL5+1 :P0KE DL+5 , DL5 : POKE 89,DL5 

110 N0N=PEEK(559) 

120 START=DL4+256*DL5 

130 INPUT A$ 

140 POKE 559,0 

150 FOR 1=1 TO 24 

160 POKE DL+3*I ,66 

170 POKE DL+1+3*I ,DL4 

180 POKE DL+2+3* I ,DL5+I-1 

19U NEXT I 

200 POKE DL+78,65 

210 POKE DL+79,P560:P0KE DL+80,P561 

220 POKE 559, N0N 

230 K=0 

240 POKE 53279,8 

250 ST=STICK(0) 

260 IF ST=1 1 THEN K=K+1 

270 IF ST=7 THEN K=K-1 

28U C0N=PEEK(53279) : IF C0N = 6 THEN 330 

290 FOR L=0 TO 23 

300 POKE DL+4+3*L,DL4+K 

310 NEXT L 

320 GOTO 250 

330 POKE 106,P106:RUN "D:EX7" 
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XAMPLI 



This looks just like the last example, doesen't it? 
Well, when you press RETURN and try to scroll something 
funny will happen. The screen will go "crazy" because we 
POKE the wrong numbers into the DL. Look at the code and 
find the error. This error is typical of the type that 
occurs when modifing displays. 

Now, just like the contests that a certain computer 
company holds, we will give $50. to the LAST person to send 
us the correct answer (Can you believe some people actually 
wrote us hoping they would be the last one and thus win a 
prize!). It's a joke, folks.. .don't write in. 



10 GRAPHICS 17:? #6;" EXAMPLE 7" 

20 FOR W=1 TO 230:POKE 710, W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

35 P106=PEEK( 106) 

40 POKE 106,PEEK( 1 06 ) -24 

50 GRAPHICS 

60 DIM A$(255) 

70 DL = PEEK(560)+256*PEEK(561 ) 

80 P560=PEEK(560) : P561 =PEEK ( 56 1 ) 

90 DL4=PEEK(DL+4) : DL5=PEEK ( DL+5 ) 

100 DL5=DL5+1 :P0KE DL+5 , DL5 : POKE 89,DL5 

110 NON=PEEK(559) 

120 START=DL4+256*DL5 

130 INPUT A$ 

140 POKE 559,0 

150 FOR 1=1 TO 24 STEP 3 

160 POKE DL+3*I ,66 

170 POKE DL+1+3*I ,DL4 

180 POKE DL+2 + 3*l , (DL5+I-1 ) 

190 NtXT I 

200 POKE DL+78,65 

210 POKE DL+79,P560:POKE DL+80,P561 

220 POKE 559, NON 

230 K=0 

240 POKE 53279,8 

250 ST=STICK(0) 

26U IF ST=11 THEN K=K+1 

270 IF ST=7 THEN K=K-1 

280 C0N = PEEK(53279) : I F C0N = 6 THEN 350 

290 FOR L=0 TO 23 

300 POKE DL+4+3*L,DL4+K 

310 NEXT L 

320 GOTO 250 

330 POKE 53279,8 

340 C0N = PEEK(53279) : I F C0N = 6 THEN 350 

350 POKE 106,P106:RUN "D:EX8" 
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EXAMPLE O 

This time we point out that you don't have to scroll all 
the lines on the screen. You can enable scrolling for only 
the lines you want. Look at lines 170 to 190 in this 
example. We POKE only the 3rd to 5th lines on the screen. 
You can scroll from one line to a screen full. Any mode line 
in the DL can be set from regular (DL #'s 2 to 15) to 
scrolling (see the chart; for examp I e . . . GR. 6 ) horizontally 
(27), vertically (43), or BOTH directions for diagonal 
scrolling (59). This effect can, for example, be used to 
make a nice scrolling "marque" of text across the screen. 

The other possibilites for a mode line are LMS (LOAD 
MEMORY SCAN) mentioned above; HS & LMS, which is when you 
want tell the computer where to get its screen data and also 
have that I i ne (remember LMS sets up a I ine on the screen 
also) be able to scroll. The same applies to vertical 
scrolling & LMS, and HS, VS, & LMS. 

Yes, I am using a lot of terms and abbreviations. You 
may feel better knowing that even I , as a programmer, was 
confused at first. The concepts we are teaching here are NOT 
BASIC programming, but rather Graphics programming, which is 
a new and complex area. After this lesson, some of you 
non -programmer s will be way ahead of many professionals 
unfamiliar with graphics. 



1 GRAPHICS 17:? #6;" EXAMPLE 8" 

2 FOR W=1 TO 230:P0KE 710, W 

3 FOR ZR=1 TO 10-.NEXT ZRrNEXT W 
5 P106=PEEK(106) 

10 POKE 106,PEEK( 106)-24 

15 GRAPHICS 0:LIST 

20 DL = PEEK(560)+256*PEEK(561 ) 

30 P560=PEEK(560) : P561 =PEEK ( 561 ) 

40 DL4=PEEK(DL+4) : DL 5=PEEK ( DL+5 ) 

50 START=DL4+256*DL5 

60 FOR 1=1 TO 24 

70 POKE DL+3*I ,66 

80 POKE DL+1+3*I ,DL4 

90 POKE DL+2+3*l ,DL5+I 

100 NEXT I 

1 10 POKE DL+78,65 

120 POKE DL+79,P560:POKE DL+80,P561 

130 K=0 

135 POKE 53279,8 

140 ST=STICK(0) 

150 IF ST=1 1 THEN K=K+1 

160 IF ST=7 THEN K=K-1 
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165 C0N=PEEK(53279) : IF C0N=6 THEN 1234 

170 FOR L=2 TO 4 

18U POKE DL+4+3*L,DL4+K 

190 NEXT L 

200 GOTO 140 

1234 POKE 106,P106:RUN "D:EX9" 



EX^MF'-LE *y 

This example is coarse scrolling, but in the vertical 
direction with GRAPHICS. Just substitute your own PLOT 
commands if you like. The method is the same, only the 
numbers have been changed using the chart. 



1 GRAPHICS 17:? #6;" EXAMPLE 9" 

2 FOR W=1 TO 230:P0KE 710, W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 GRAPHICS 5+16 

20 COLOR 1:PL0T 1,1:DRAWT0 79,39 

30 DL = PEEK(560)+256*PEEK(561 ) 

40 DL4=DL+4:DL5=DL+5 

50 NUML=PEEK(DL+4) 

60 NUMH=PEEK(DL+5) 

65 POKE 53279,8 

70 SI=STICK(0) 

80 IF ST=14 THEN NUML=NUML+40 

90 IF ST=13 THEN NUML=NUML-40 

95 CON=PEEK(53279) : I F CON=6 THEN 1234 

100 IF NUML<0 THEN 1 50 

110 IF NUML<256 THEN 170 

120 NUML=NUML-256 

130 NUMH=NUMH+1 

130 NUMH=NUMH+1 

140 GOTO 170 

150 NUML=NUML+256 

160 NUMH=NUMH-1 

170 IF NUMH<0 THEN 70 

180 IF NUMH>255 THEN 70 

190 POKE DL4,NUML:P0KE DL5,NUMH 

200 GOTO 70 

1234 RUN "D:EX10" 
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EXAMPLE ±0 

If you look on the chart, you'll see that for GR. the 
regular number for the DL is 2, but to scroll (fine) 
vertically use 34. In the code for this example we POKE 34 
into the DL in lines 25 to 40. This tells these lines to 
fine scroll, but how much? Fine scrolling means instead of 
moving a row (column) of letters or graphics one character 
or graphics pixel (these come in different sizes - see your 
BASIC manual) at a time, we move these characters one TV 
pixel at a time. TV pixels are the tiny dots you see when 
you look CLOSELY at your TV, or Monitor. 

To fine scroll, we change the value in a new location: 
54277. This location may contain (normal) to 15. These 
numbers are the number of TV pixels that the line will be 
moved. This example is in a loop to scroll up 7 then reset 
to 0, then loop again. If we were in another Graphics mode, 
we would look at the chart to see how many pixels per mode 
line are being used. You then can scroll from to 1 less 
than this number (for example, to 7 is 8, the number of 
pixels in a mode line). For GR.2, we scroll to 15; for 
GR.8 you can't fine scroll (a coarse scroll here is the same 
as fine, one pixel line up). 

The chart doesn't give values for every mode that the 
ATARI has. If you look at the row marked DL#, you will 
notice missing #'s 3, 4, 5, 12, & 14. Until we do a special 
tutorial on these modes, you can use the Operating System 
manuals that ATARI sells to explore them. Also missing are 
Graphics modes 9,10 & 11 which were not in U.S. machines 
when this was written. These modes use #15 (GR. 8) with a 
few POKEs into the Operating System to change the way the 
data is interpreted. 



1 GRAPHICS 17:? #6;" EXAMPLE 10" 

2 FOR W=1 TO 230:P0KE 710, W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 GRAPHICS 0:LIST 

20 DL=PEEK(560)+256*PEEK(561 ) 
25 FOR S=9 TO 13 
30 POKE DL+S,34 
40 NEXT S 
45 POKE 53279,8 
50 FOR Y=0 TO 7 

60 POKE 54277, Y:P0S ITION 2,20:? "THE NUMBER OF PIXELS 
SCROLLED IS ";Y:F0R W=1 TO 50:NEXT W 

70 NEXT Y 

100 C0N=PEEK(53279) : IF C0N=6 THEN 1234 

1 10 GOTO 50 

1234 RUN "D:EX1 1 " 
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EXAMPLE ± ± 

Same thing as Example 10, but using the Joystick so you 
can practice moving up or down a pixel at a time. This will 
make sure everyone understands the dlference between fine 
and coarse scrolling. 



10 GRAPHICS 17:? #6;" EXAMPLE 11" 

20 FOR W = 1 TO 230:P0KE 710, W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 GRAPHICS 3 

50 COLOR 1:PL0T 1,1:DRAWT0 1,10:DRAWTO 10,10:DRAWTO 10,1 

DRAWTO 1,1 
60 DL = PEEK(560)+256*PEEK(561 ) 
70 FOR S=6 TO 15 
80 POKE DL+S,40 
90 NhXT S 
100 POKE 53279,8 
110 1=0 

120 SI=STICK(0) 
130 IF ST=14 THEN 1=1+1 
140 IF ST=13 THEN 1=1-1 
150 IF I <0 THEN I =0 
160 IF I >7 THEN I =7 
170 POKE 54277, I :? I 

180 C0N=PEEK(53279) : I F C0N=6 THEN 200 
190 GOTO 120 
200 RUN "D:EX12" 



XAMPLI 



There is also a horizontal fine scroll register similar 
to the one for vertical fine scrolling. It is at 54276, 
right next to the other. To use it, look again at the chart. 
POKE the value into each line we want to scroll in the DL. 
For example, the correct value for a GR. line that allows 
a horizontal scroll is 18. Now POKE the amount of clock 
cycles to scroll, to 15 into 54276. No, I am not going to 
explain "clock cycles". It's exact meaning Isn't important 
here and besides, like so many of the numbers we have been 
discussing, you wil I learn more if you try it yourself. It 
would be the exceptional person who could write a program to 
scroll without first trying it. Paper descriptions are not 
easy to read. Practice 
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1 GRAPHICS 17:? #6;" EXAMPLE 12" 

2 FOR W=1 TO 230:POKE 710, W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 GRAPHICS : L I ST 

20 DL=PEEK(560)+256*PEEK(561 ) 

30 POKE DL+9,18 

40 POKE DL+1 1,18 

50 POKE 53279,8 

80 FOR X=0 TO 15 

85 C0N=PEEK(53279) : IF C0N=6 THEN 1234 

90 POKE 54276, X:POS ITION 2,20:? » ":POSITION 2,20:? X 

95 FOR W=1 TO 100:NEXT W 

100 NEXT X 

1 10 GOTO 40 

1000 POKE 53279,8 

1010 C0N=PEEK(53279) : IF C0N = 6 THEN 1234 

1234 RUN "D:EX13" 



XAMPLE 13 



We left a few goofs in this example. The LMS byte was 
not changed per the chart from 66 to 98. Also, a jump occurs 
on the screen. The method is just a combination of the two 
previous vertical scroll examples. After the great 
instruction you have been getting, you can figure this one 
out in a few m i nu tes . . . CAN ' T YOU ??? 



10 GRAPHICS 17:? #6;" EXAMPLE 13" 

20 FOR W=1 TO 230:POKE 710, W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 GRAPHICS : L I ST 

50 DL=PEEK(560)+256*PEEK(561 ) 

60 DL4=DL+4:DL5=DL+5 

70 NUML=PEEK(DL+4) 

80 NUMH=PEEK(DL+5) 

90 FOR S=6 TO 27 

100 POKE DL+S,34 

1 10 NEXT S 

120 POKE 53279,8 

130 l=0 

130 l=0 

140 POSITION 35,15:? I : ST=ST I CK ( ) 

150 IF ST=13 THEN 1=1-1 

160 IF ST=14 THEN 1=1+1 

170 IF l>7 THEN POKE 54277 , : I =0 : GOTO 220 

180 IF I <0 THEN POKE 54277 , 7 : I =7 : GOTO 220 

190 POKE 54277, I :P0S ITION 2,20:FOR W=1 TO 10:NEXT W 

195 C0N=PEEK(53279) : IF C0N=6 THEN 350 
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200 GOTO 140 

220 IF ST=14 THEN NUML=NUML+40 

230 IF ST=13 THEN NUML=NUML-40 

240 IF NUML<0 THEN 290 

250 IF NUML<256 THEN 310 

26U NUML=NUML-256 

270 NUMH=NUMH+1 

28U GOTO 310 

290 NUML=NUML+256 

300 NUMH=NUMH-1 

310 IF NUMH<0 THEN 140 

320 IF NUMH>255 THEN 140 

330 POKE DL4,NUML :P0KE DL5,NUMH 

34U GOTO 140 

350 RUN "D:EX14" 



ex*=*mf*i_e: ±^ 

This is the best you can do to combine fine and coarse 
vertical scroll'"' 1 . There are no new tricks to learn, just 
look at the sequence of how we put two previous examples 
together. Especially notice lines 190 and 300. This is 
pretty nice for BASIC! This example could be renumbered into 

a subroutine for you to use in programs or Since 

there are so many possible combinations of scrolling, we 
don't show you each combination. It is easy to combine 
whichever types of scrolling you need. Really! 



10 GRAPHICS 17:? #6;" EXAMPLE 14" 

20 FOR W=1 TO 230:P0KE 710, W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 GRAPHICS 0:LIST 

50 DL=PEEK(560)+256*PEEK(561 ) 

60 DL4=DL+4:DL5=DL+5 

70 NUML=PEEK(DL+4) 

80 N0N=PEEK(559) 

90 NUMH=PEEK(DL+5) 

100 POKE DL+3,98 

1 10 FOR S = 6 TO 27 

120 POKE DL+S,34 

130 NEXT S 

140 POKE 53279,8 

150 l=0:P0KE 752,1 

160 REM **** MAIN LOOP ************* 

170 POSITION 35,14:? I : ST=ST I CK ( ) 

180 C0N=PEEK(53279) : IF C0N=6 THEN 340 

190 l=l-(ST=13)+(ST=14) 

200 IF I >7 THEN l=0:G0TO 230 

210 IF I <0 THEN I =7:G0T0 230 
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220 POKE 54277, I .-GOTO 170 

230 NUML=NUML+(ST=1 4 ) *40-( ST=1 3 ) *40 

240 IF NUMKO THEN 270 

250 IF NUML<256 THEN 280 

260 NUML=NUML-256:NUMH=NUMH+1 :G0T0 280 

270 NUML=NUML+256:NUMH=NUMH-1 

280 IF NUMH<0 THEN 170 

290 IF NUMH>255 THEN 170 

300 POKE 559,0:POKE DL4, NUML : POKE DL5 , NUMH : POKE 54277,I:P0KE 

559,34 
310 GOTO 170 
320 POKE 53279,8 

330 C0N = PEEK(53279) : IF C0N = 6 THEN 340 
340 RUN "D:EX15" 



EXAMPLE IS 

When vertical scrolling, as in the example above (BASIC 
Language only), the screen seems to blink as it scrolls. 
This is because we are moving a line up 1,2, ...7 pixels. 
Then we move it back to and, as quickly as possible, 
coarse scroll it up 8 pixels. This gets the text to move up 
or down, but the "jump" shows on the screen. To hide the 
jump, the screen Is POKEd off (559,0) before the jump and 
POKEd on (559,34) after. Thus, the blink. 

NOW WE GIVE YOU.. .ASSEMBLY LANGUAGE. 

Geoff Caras, of our little group, wrote a small Assembly 
subroutine to do the POKEs and you can see how quick and 
smooth it works. I won't feel bad if you use this example 
instead of my # 14 in your programs. Just change the 
Graphics to use this example as a subroutine in your 
programs ! 



10 GRAPHICS 17:? #6;" EXAMPLE 15" 

20 FOR W=1 TO 230:P0KE 710, W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 DIM A$(38) :TRAP 60: 1=1 

50 READ X:A$( I )=CHR$(X) : 1=1+1 :G0T0 50 

60 GRAPHICS 0:LIST :P0KE 752,1 

70 POKE 712,148 

80 DL=PEEK(560)+256*PEEK(561 ) 

90 DL4=DL+4:DL5=DL+5 

100 NUML=PEEK(DL+4) 

110 NON=PEEK(559) 

120 NUMH=PEEK(DL+5) 

130 POKE DL+3,98 
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140 FOR S=6 TO 27 

150 POKE DL+S,34 

160 NEXT S 

170 POKE 53279,8 

180 1=0 

1 9U POSITION 35,20:? I : ST=ST I CK ( ) 

200 C0N=PEEK(53279) : IF C0N=6 THEN 410 

210 l=l-(ST=13)+(ST=14) 

220 IF l>7 THEN l=0:GOTO 250 

230 IF KO THEN l=7:G0T0 250 

240 POKE 54277, I :GOTO 190 

250 NUML=NUML+((ST=14)*40)-((ST=13)*40) 

260 IF NUML<0 THEN 300 

270 IF NUML<256 THEN 310 

280 NUML=NUML-256:NUMH=NUMH+1 

29U GOTO 310 

300 NUML=NUML+256:NUMH=NUMH-1 

310 IF NUMH<0 THEN 190 

320 IF NUMH>255 THEN 190 

330 X=USR(ADR(A$),I , DL4 , NUML , DL5 , NUMH ) 

340 GOTO 190 

350 DATA 160,0,140,47,2,104,104,104 

360 DATA 141,5,212,104,133,225,104,133 

370 DATA 224,104,104,145,224,104,133,225 

380 DATA 104,133,224,104,104,145,224,169 

390 DATA 34,141 ,47,2,96,0 

400 C0N = PEEK(53279) : IF C0N = 6 THEN 410 

410 RUN "D:EX16" 



This is an example of changing Graphics modes by the use 
of the chart. The titles could be brought In from DATA 
statements or disk if you wanted. These examples are now 
POKEing the border color to match the page (you really 
should have one of our Master Memory Maps to learn these 
POKEs). The examples are really starting to be professional 
I ook i ng . 



10 GRAPHICS 17:? #6;" EXAMPLE 16" 

20 FOR W=1 TO 230:POKE 710, W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 GRAPHICS 1 7 : POS I T I ON 2,10:? #6;"TITLE GOES HERE" 

45 POKE 712,152:P0KE 708,1 

50 DL = PEEK(560)+256*PEEK(561 ) 

60 DL4=DL+4:DL5=DL+5 

70 NUML=PEEK(DL+4) 

80 NON=PEEK(559) 

90 NUMH=PEEK(DL+5) 
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100 POKE DL+3,102 

1 10 FOR S = 6 TO 27 

120 POKE DL+S,38 

130 NEXT S 

140 POKE 53279,8 

150 l=0:POKE 752,1 

160 REM **** MAIN LOOP ************* 

170 POSITION 35,14:ST=STICK(0) 



Another example of scrolling a Graphics line up and 
down, but this time with the Assembly subroutine. Think of 
the games you can write, or great educational programs! 
Don't fall into the trap of thinking that this is just a 
simple example, and a "real" example will be harder. All you 
have to change is the GRAPHICS statements! 



1 GRAPHICS 17:? #6;" EXAMPLE 17" 

2 FOR W=1 TO 230:POKE 710, W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 DIM A$(38) :TRAP 30: 1=1 

20 READ X:A$( I )=CHR$(X) : 1=1+1 :G0T0 20 

30 GRAPHICS 3:C0L0R 1:PL0T 1,1:DRAWT0 19,19 

40 DL=PEEK(560)+256*PEEK(561 ) 

50 DL4=DL+4:DL5=DL+5 

60 NUML=PEEK(DL+4) 

70 N0N=PEEK(559) 

80 NUMH=PEEK(DL+5) 

90 POKE DL+3,104 

100 FOR S=6 TO 30 

1 10 POKE DL+S,40 

120 NEXT S 

130 1=0 

135 POKE 53279,8 

140 ST=STICK(0) 

145 C0N=PEEK(53279) : IF C0N=6 THEN 1234 

150 l=l-(ST=13)+(ST=14) 

160 IF l>7 THEN l=0:G0T0 190 

170 IF I <0 THEN l=7:G0T0 190 

180 POKE 54277, I :G0T0 140 

190 NUML=NUML+( ( ST= 1 4 ) *1 ) - ( (ST=1 3)*10) 

200 IF NUML<0 THEN 240 

210 IF NUML<256 THEN 250 

220 NUML=NUML-256:NUMH=NUMH+1 

230 GOTO 250 

240 NUML=NUML+256:NUMH=NUMH-1 

250 IF NUMH<0 THEN 1 40 
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260 IF NUMH>255 THEN 140 

27 X=USR(ADR(A$),I,DL4,NUML,DL5,NUMH) 

28U GOTO 140 

400 DATA 160,0,140,47,2,104,104,104 

410 DATA 141,5,212,104,133,225,104,133 

420 DATA 224,104,104,145,224,104,133,225 

430 DATA 104,133,224,104,104,145,224,169 

440 DATA 34,141 ,47,2,96,0 

1234 RUN "D.-EX18" 



EXAMPLE A© 

No, we aren't going to offer an Assembly program for 
horizontal scrolling. This is a tutorial to learn the 
principals of scrolling. 

This example, our last, is again combining two previous 
examples to allow continuous scrolling horizontally. The 
POKE to turn off the screen is st i I I needed, so that is the 
blink you see. However, the junk on the screen is because of 
a point we didn't mention yet. Whenever you POKE a Display 
List, you should wait for the time when the TV is blank and 
waiting to do the next screen. Well, this happens 30 times a 
second! BASIC can't go that fast, but if you program in 
Assembly use WSYNC to prevent the flashing junk that this 
BASIC example shows. For the rest of us, we'll wait for some 
more subroutines like example 15. 



There are many details left out of this discussion. For 
example try Poking 559,33 and 559,35. This gives you wide or 
small playfields of 48 or 32 characters width automatically, 
without the trouble we went through earlier for the 256 
width . 



1 GRAPHICS 17:? #6;" EXAMPLE 18" 

2 FOR W=1 TO 230:P0KE 710, W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

4 ? #6;" LAST EXAMPLE":F0R W=1 TO 200:POKE 710,W:NEXT W 
10 TRAP 40000:TRAP 300 

15 P1 06=PEEK( 106) 

20 N0N = PEEK(559) :GRAPH ICS 0:G0T0 50 

40 M=M+(ST=1 1 )*5-(ST=7)*5:Y=DL4+M:P0KE 559,0:FOR L=0 TO 72 

STEP 3:P0KE X+L,Y:NEXT L:P0KE 54276, K:P0KE 559, N0N 
45 GOTO 130 

50 POKE 106,PEEK(106)-24:POKE 766,1 
60 GRAPHICS 0.-LIST 
70 DL = PEEK(560)+256*PEEK(561 ) 
80 P560 = PEEK(560) : P561 =PEEK ( 561 ) 
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90 DL4=PEEK(DL+4) : DL5 = PEEK (DL + 5 ) 

100 FOR 1=1 TO 25: 13 = 3*1 :POKE DL+ I 3 , 82 : POKE DL + 1 + I 3 ,DL4 : POKE 

DL+2+ I 3,DL5+ I :NEXT I 
110 POKE DL+78,65:P0KE DL+79, P560 : POKE DL+80,P561 
120 K=0:X=DL+4:M=0 
125 POKE 53279,8 

130 POKE 54276, K : ST=ST I CK ( ) :K=K-(ST=1 1 )+(ST=7) 
135 C0N=PEEK(53279) : IF C0N=6 THEN 1234 
140 IF K>15 THEN K=0:GOTO 40 
150 IF K<0 THEN K=15:G0T0 40 
160 GOTO 130 
300 GRAPHICS 0:? "t":? "YOU WENT TO FAR. ..PRESS RESET AND 

TYPE RUN PRESS RETURN." 

310 END 

1234 POKE 106,P106:GRAPHICS 0:POKE 709,0 

1235 ? " THANK FOR BUYING OUR TRICKY TUTORIALS ";:G0T0 

1235 



I appreciate that all of you students have stayed awake 
so long. I'll see you in my next Tricky Tutorial. BYE! 
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TRICKY TUTORIAL #3 
PAGE FLIPPING 



PAGE FLIPPING 



Page Flipping is a set of simple 
programs designed to teach those new to 
the ATARI how to store Information in 
memory and then bring it back on the 
screen instantly! With the two methods 
taught here, even a new programmer can 
learn to do simple animation, or present 
nice slide-like displays. The simplest 
of these examples has only 12 short 
I i nes of basic code! 

The person using this lesson should 
be familiar with BASIC programming so 
that he or she can read the code that is 
included. Since the program is not 
protected, the user is encouraged to try 
their own modifications inorder to gain 
a greater perspective of the art of 
flipping pages of memory. 

The program is split up into smaller 
pieces that wi I I load and run on 
ATARI (tm) 400/800 computers with 16k RAM 
for cassette users and 24k RAM for those 
using disk. 



Educational Software 
4565 Cherryva I e 
Soquel, CA 95073 
(408) 476-4901 



i nc 



Educational Software 



presents 



TRICKY TUTORIAL #3 



FLIPPING 



TRICKY TUTORIAL #3 

FLIPPING 

by 
Rob in Sherer 



No doubt some of you hesitated before ordering a program 
to "flip pages". For this reason I want to start by assuring 
you that once you learn either of the two simple methods 
taught here, your programs will look and run much nicer. 

Not very long ago, I had to learn the method of 
flipping screens. Since I still remember how confusing it 
was at first, only the material you need is presented here. 
A few details have been left out because only those trying 
to become experts wi I I care, and they wi I I have to read the 
technical manuals anyway. The style of the manual is 
informal mostly because I have never heard a good 
explaination for instructions that are written in a cold 
manner. We bought our computers to learn and have fun!. 



HOW TO l_Orf=*0 



TAPE 



Place the tape in your recorder, label side up, and 
insert your BASIC Cartridge. Make sure the tape is rewound, 
and reset the counter to zero. Push PLAY on the recorder, 
type RUN"C:", and press RETURN. If the program won't start 
to load, try positioning the tape forwards or backwards a 
little. The easiest way to find the beginning is to listen 
to the "noise" on the tape with a regular recorder. When you 
find the steady tone, you have the beginning of the program. 
We recommend you write down the number on your recorder's 
counter as each program starts, this will make it easier to 
find each part later on. 



Dl SK 

To load and run the disk, first turn on your disk drive. 
When the busy light goes out, place the disk into the drive, 
with the BASIC Cartridge in place. The program will load 
each part and run by itself. 

Any defective tapes or disks should be returned to: 
Educational Software inc. 
4565 Cherryvale 
Soquel, CA 95073 
(408) 476-4901 

©1981 by Santa Cruz Educational Software 
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Whait: ± is- Page F="l ± |=» pj ± ng 

The idea of flipping pages is somewhat unique in small 
home computers. You're lucky, the ATARI just happens to be 
able to do page flipping. The reason for this is that the 
ATARI allows both its DISPLAY LIST and DISPLAY DATA to be 
stored in any free area of memory. A Display List is the 
small set of instructions every computer needs to tell 
itself how to put the display data on the screen. This is 
especially important for us to learn since the ATARI 
computers offer so many types of graphics modes. This 
special capability means that you can store the information 
for numerous pages (TV screens) of graphics and/or text and 
then later, in your program, go to any of these pages 
instantly. This makes things look much more professional. 



—BASICS— 

First, we are going to cover some basics. Memory is 
stored in something called RAM, which stands for random 
access memory. This is because you can either read or write 
to any place within it. Usually discussion of memory is in 
terms of bytes. For example, your memory(RAM) may consist of 
1 6k, 24k, 32k, 40k, or 48k bytes. Remember that 1k is actually 
1024 bytes. Confused? GOOD! Then you may appreciate the fact 
that to flip screens of data we are going to just move down 
in memory by increments of 256 bytes at a time. These 
increments are called "pages" (ain't life simple???). So 4 
pages is 4*256 = 1024 bytes = 1k . The last sentence is all 
you have to remember. Four pages of memory =1k bytes of 
memory. Oh yes, I should tell you that "k" is the symbol for 
1000. 

The term flipping pages would now become confusing - we 
are NOT flipping 256 bytes at a time. For this reason we 
wi I I refer to the process as f I Ipping screens or 
d i sp I ays , i e . , the stuff you see on the TV screen at any one 
time. 

There will be two methods shown in our examples. DON'T 
JUST VIEW THEM. COPY THEM TO ANOTHER DISK OR TAPE AND MODIFY 
THEM FOR YOUR OWN USE. WE WANT YOU TO COPY OUR SOFTWARE FOR 
USE IN YOUR OWN PROGRAMS. EACH EXAMPLE IS SET UP FOR GENERAL 
PURPOSES, SO JUST SUBSTITUTE YOUR OWN TEXT OR GRAPHICS. IF 
YOU HAVE 32K OR MORE OF MEMORY, CHANGE TO HIGH RES, GRAPHICS 
MODE 8 AND ADD TEXT AS WELL AS GRAPHICS. The method and 
examples all work, but could be much better . . . . espec i a I I y if 
written for more memory than the small amount this lesson 
runs on (don't brag about your 48k machine. My ATARI has 
160k ! ) 
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METHODS 



1 — 



Normally when you say Graphics to 
units) to the computer, it sets up both a 
data area just below the top of your 
simply tells the computer after a 
"memory ain't where it used to 
set up a new (additional) Display 

t ir 



8 (11 for newer 
Display List and a 
memory. Method one 
screen is drawn , 



it's now I ower , so 



f i rst 
be , but 
List and data area lower 

often as you require (and 
number of screens ful I of 



in memory". By doing this as 

memory space allows), you allow a 

data to be seen by just redirecting the one location that 

points to the start of each Display List. EASY! Figure one 

will show you this graphically: 



TOP OF MEMORY 



SCREEN DATA 1 (261 to 7900 bytes) 



DISPLAY LIST (20 to 202 bytes) 



SCREEN DATA 2 



Dl SPLAY L I ST 2 



SCREEN DATA 3 



DISPLAY LI ST 3 



AS MANY MORE SCREENS AS YOU HAVE ROOM FOR 



YOUR BASIC PROGRAM and OTHER STUFF. 



BOTTOM OF MEMORY 



Fig. 1 
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EXAMPLE 1 

Run Example 1. Notice that you can see it draw out some 
random lines, then they disappear and a new set of lines is 
drawn out. Then. ..these two screens seem to appear and 
disappear, first one then another. 
Here's how it works: 



10 GRAPHICS 6 

12 GOSUB 4000 

15 TRAP 20 

20 COLOR 1:F0R 1=1 TO 20:C0L0R 2*RND ( 4 ) : DRAWTO 1 40*RND ( 4 ) , 70 

*RND(9):NEXT I 
25 ? "THIS IS FLIPPING BETWEEN TWO AREAS OF MEMORY. PRESS 

RETURN TO C0NTI NUE . " 
30 A=PEEK(106) 

40 DLISTL1=PEEK(560):DL!STH1=PEEK(561) 
50 POKE 106,A-32 

60 GRAPHICS 6 

61 GOSUB 4000 

7 DLISTL2 = PEEK(5 60) : DL I STH2 = PEEK ( 56 1 ) 
75 TRAP 80 

80 COLOR 1:F0R 1=1 TO 20:COLOR 2*RND ( 4 ): DRAWTO 1 40*RND ( 4 ) , 70 
*RND(9):NEXT I 

85 ? "THIS IS FLIPPING BETWEEN TWO AREAS OF MEMORY. PRESS 
RETURN TO C0NTI NUE." 

86 POKE 764,255 

90 POKE 561 ,DL I STH1 :F0R W=1 TO 2:NEXT W:P0KE 56 1 , DL I STH2 : I F 

PEEK(764)=12 THEN 1 10 
100 GOTO 90 

110 POKE 106,A:RUN "D:NEXT1" 
4000 X=PEEK( 16) : IF X=128 THEN 4020 
4010 POKE 16,X-128:POKE 53774, X-128 
4020 RETURN 



Lines 10 to 25 draw a screen just like normal using COLOR, 
PLOT, and PRINT commands (See your BASIC referance manual 
for these commands). 

Line 30 stores the original top of memory (in number of 256 
byte pages) read from location 106 using the PEEK command. 

Line 40 stores the two numbers that locate the Display List. 
Remember that it takes two eight bit numbers to address all 
of the computers memory. The LOW part can hold from to 255 
and the HIGH part holds from to 255 (times 256). ..again 
see your manual or our MASTER MEMORY MAP. We will only use 
the part of the address in location 561. This is because we 
are moving memory down in whole page increments and 561 
holds the number of whole pages. We left in the low part, in 
case you want to experiment with your own ideas. 
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— MOTE — 

Often I leave out pieces of code that you may not see 
mentioned in the manual. You should assume that it either is 
something you will see the need for later, or something 
needed just to make all the examples run together smoothly. 

Line 50 says "the top of memory is located down in RAM 
by 32 pages (8k bytes) from the previous value. This is more 
than is needed for this example. The extra amount will allow 
you room to add more screens later when you come back to 
this example to experiment with your own changes.... and you 
will come back, won't you? 

Line 60 to 85 again draw some graphics just like normal. 
The computer looks at location 106 and sees the value we put 
there. It is thus "fooled" into placing the new Display List 
and data starting 32 pages lower than it otherwise would 
have. Actually, the amount of pages you go down should 
correspond to the amount of memory the graphics modes you 
are using requires. Look in the first page of the BASIC 
Manual's Graphics section to see how much you need. We used 
mode 6, so 2k or 8 pages would have been enough. This way, 
though, we left room for you to easily copy this program and 
substitute your own graphics! 

Line 70 stores the location or address of this second 
Display List. You can do this before (like here, line 70) or 
after the graphics statements. The location will be used to 
flip the screens later. 

Line 90 then does the flipping by just POKEing 561 with 

the address (high part only!) of the first Display List, 

then the second, then the first, etc. This says "use this 
Display List. .no this one.. .no use the f i rst . . etc . " . 

SMOTHER NOTE. 

You can see in the program code in Example 1 it is line 
110 that POKEs 106 back to the original value. If you are 
going to go on and use your computer after confusing it like 
this, you had better tell it what the real top of memory is. 
If, on the other hand, you are going to turn it off after 
our program is finished, don't bother. Any time you power up 
or press RESET, the computer will store the correct value in 
106. 

Also, while running our program, don't press RESET or 

BREAK unless it crashes (it shouldn't, but...). If any 

example stops then press RESET and type RUN and press 

RETURN. Of course, you should press RESET and then 

experiment with each example after you have seen the entire 

program at least once. This is how you will learn! 
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EXAMPLE 2 

This example is made out of Example 1 to show you how to 
expand the basic idea of changing screens. Here we set up 
FOUR Display Lists and print four simple messages on the 
screen. As you press a button the message appears instantly! 
If you think about it, you will realize that there is no 
diference in flipping between four one line messages on a 
page, or four completely filled pages of text. Each time you 
press a button, another area of memory is displayed on the 
screen. The one line messages were just to keep the program 
simple for you to study. Please add many more lines of text 
to this example and see what we mean. You just put more 
words between the quotes In lines 20, 70, 110, & 150. 

Lines 10 to 40 write text and store the needed values 
for Display List one (DL1). 

Lines 50 to 80 POKEs 106 down 8 pages (2k, more than 
enough for GR.0), writes more text, and stores these new 
va I ues . 

Lines 90 to 120 same thing another 8 pages down in 
memory, but different text. 

Lines 130 to 160 same thing again for a fourth screen! 

Lines 168 to 185 look for you to press keys 1 to 4 (or 
whatever!) so that lines 190 to 220 can tell the computer 
which of the four Display List you previously created to now 
use. The test for CH=12 is to see if you decided to go on to 
something else by pressing return. The POKE of 255 to 764 
clears the location that holds the internal code for the 
last key pressed. The variable CH on line 170 will tell the 
system which key you just pressed (if any). 

NOTE 

You can put In your own text or have the computer read 
In the text from the keyboard or disk and place the first 
960 bytes (the size of GR.0) in page one, the next 960 In 
page 2, etc. The way to read in data from keyboard or disk 
is explained In your reference manuals. 



5 TRAP 10 

10 GRAPHICS 

20 POSITION 4,10:? "THIS IS PAGE 1 . » : P0S I T I ON 2,20:? "PRESS 

1 ,2,3 OR 4 FOR THAT PAGE." 
25 ? "PRESS RETURN TO CONTINUE." 
30 A=PEEK(106) 
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40 DLL1 =PEEK (560 ) : DLH 1 =PEEK ( 56 1 ) 

45 REM ****************************** 

50 POKE 106, A-8 

60 GRAPHICS 

70 POSITION 10,10:? "THIS IS PAGE 2.":P0SITI0N 2,20:? "PRESS 

1 ,2,3 OR 4 FOR THAT PAGE." 
75 ? "PRESS RETURN TO CONTINUE." 
80 DLL2=PEEK(560) : DLH2=PEEK ( 56 1 ) 
85 REM ****************************** 
90 POKE 1 06 , A-1 6 
100 GRAPHICS 
110 POSITION 15,10:? "THIS IS PAGE 3.":P0SITI0N 2,20:? "PRESS 

1 ,2,3 OR 4 FOR THAT PAGE." 
115 ? "PRESS RETURN TO CONTINUE." 
120 DLL3=PEEK(560):DLH3=PEEK(561) 
125 REM ***************************** 
130 POKE 106,A-24 
140 GRAPHICS 
150 POSITION 20,10:? "THIS IS PAGE 4.":P0SITI0N 2,20:? "PRESS 

1 ,2,3 OR 4 FOR THAT PAGE." 
155 ? "PRESS RETURN TO CONTINUE." 
160 DLL4=PEEK(560):DLH4=PEEK(561 ) 
165 REM ***************************** 
168 POKE 764,255:G0SUB 4000 
170 CH=PEEK(764) 

180 IF CH=31 THEN 190 

181 IF CH=30 THEN 200 

182 IF CH=26 THEN 210 

183 IF CH=24 THEN 220 

184 IF CH=12 THEN 230 

185 GOTO 170 

190 POKE 560,DLL1 :P0KE 56 1 , DLH 1 : GOTO 170 
200 POKE 560,DLL2:POKE 561 , DLH2 : GOTO 170 
210 POKE 560,DLL3:POKE 56 1 , DLH3 : GOTO 170 
220 POKE 560,DLL4:P0KE 56 1 , DLH4 : GOTO 170 
230 POKE 106,A:RUN "D:NEXT2" 
4000 X=PEEK( 16) : IF X=128 THEN 4020 
4010 POKE 16,X-128:P0KE 53774, X-128 
4020 RETURN 



Example 3 is the same as Example 2, but with graphics 
instead of text. Although it will seem obvious to some of 
you, all you need to do is substitute graphics type commands 
for the text commands of Example 2. We used four simple bar 
graphs, but you could draw very complicated pictures if you 
wanted. Remember that the material that you place on a 
screen doesn't effect the basic method we are using. Even if 



-7- 



you fill up the screen, the computer just keeps looking at 
the Display List to see where to get it's screen data. No 
more watching complicated pictures drawn out every time you 
need them. Now you can store them ahead of time in memory. 



"THE 
ON." 



YEARS 1981 



5 TRAP 10 

10 GRAPHICS 5 

15 COLOR 1:PL0T 5,5:DRAWTO 5,35:DRAWT0 75,35 

20 COLOR 2:PL0T 10,34:DRAWTO 10,25:DRAWTO 5 , 25 : POS I T I ON 5,34 

:P0KE 765,2:XI0 1 8, #6 , , , "S : " 
25 ? "PRESS 1,2,3, OR 4 FOR BAR GRAPHS OF":? 

1982,1983 OR 1984.":? "PRESS RETURN TO GO 
30 A=PEEK(106) 

40 DLL1=PEEK(560) : DLH 1 =PEEK ( 56 1 ) 
45 REM ****************************** 
50 POKE 106, A-8 
60 GRAPHICS 5 

65 COLOR 1:PL0T 5,5:DRAWT0 5,35:DRAWT0 75,35 
70 COLOR 3:PL0T 15,34:DRAWT0 15,20:DRAWT0 10, 

34:P0KE 765,3:XI0 1 8 , #6 , , , "S : " 
75 ? "PRESS 1,2,3, OR 4 FOR BAR GRAPHS OF":? 

1982,1983 OR 1984.":? "PRESS RETURN TO GO 
80 DLL2 = PEEK(560) : DLH2 = PEEK ( 561 ) 
85 REM ****************************** 
90 POKE 106,A-16 
100 GRAPHICS 5 

105 COLOR 1:PL0T 5,5:DRAWT0 5,35:DRAWT0 75,35 
110 COLOR 1:PL0T 20,34:DRAWT0 20,15:DRAWT0 1 5 , 1 5 : POS I T I ON 15 



20:P0SITI0N 10, 



"THE 
ON." 



YEARS 1981 



1 15 

120 
125 
130 
140 
145 
150 

155 

160 
165 
168 
170 
180 
181 
182 
183 
184 
185 



? "PRESS 1 ,2,3, OR 4 FOR BAR 
1982,1983 OR 1984.":? "PRESS 



34:P0KE 765,1:XI0 1 8 , #6 , , 0, "S : " 

GRAPHS 

RETURN 

DLL3=PEEK(560):DLH3=PEEK(561) 

REM ***************************** 

POKE 106,A-24 

GRAPHICS 5 

COLOR 1:PL0T 5,5:DRAWT0 5,35:DRAWT0 75 

COLOR 2:PL0T 25,34:DRAWT0 25,10:DRAWTO 

34:P0KE 765,2:XI0 1 8,16,0,0, "S:" 

? "PRESS 1,2,3, OR 4 FOR BAR GRAPHS OF":? 

1982,1983 OR 1984.":? "PRESS RETURN TO GO 

DLL4 = PEEK(560) : DLH4 = PEEK ( 56 1 ) 

REM ***************************** 

POKE 764,255:GOSUB 4000 

CH=PEEK(764) 

IF CH=31 THEN 190 

IF CH=30 THEN 200 

IF CH=26 THEN 21 

IF CH=24 THEN 220 

IF CH=12 THEN 230 

GOTO 170 



TO 


15, 


,15: 


:POS ITION 


OF' 


1 ; ? 


"THE 


YEARS 


TO 


GO 


ON, 


it 





1981 



35 

20,10:POS ITION 



20, 



"THE 
ON." 



YEARS 1981 
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190 POKE 5b0,DLL1 :P0KE 56 1 , DLH 1 : GOTO 170 
200 POKE 560,DLL2:P0KE 56 1 , DLH2 : GOTO 170 
210 POKE 560,DLL3:P0KE 56 1 , DLH3 : GOTO 170 
220 POKE 560,DLL4:P0KE 56 1 , DLH4 : GOTO 170 
230 POKE 106,A:RUN "D:NEXT3" 
4000 X=PEEK( 16) : IF X=128 THEN 4020 
4010 POKE 16,X-128:P0KE 53774, X-128 
4020 RETURN 



EX«PkMF"L_E: J\ 

This example draws a shape on each page. Then, by 
flipping screens you can animate the shape! Remember that 
any set of data can be used for the shape so why not copy 
this program to your disk/cassette and try your own shapes. 
Another idea would be to draw a business logo and move it 
across a chart of profits. Use your imagination, or just 
play if you like. The posibilities are endless! 



3 GRAPHICS 

5 TRAP 10 

10 GRAPHICS 5 

15 COLOR 1 

20 READ X,Y: I F X=0 THEN 30 

25 PLOT X,Y:G0T0 20 

27 DATA 9,23,10,23,11,23,9,24,10,24,11,24,10,25,8,26,9,26, 
10,26,1 1 ,26,12,26,7,27,9,27,10,27, 1 1 ,27, 13,27 

28 DATA 6,28,9,28,10,28,11,28,14,28,9,29,10,29,11,29,9,30, 
10, 30, 11, 30, 9, 31, 11, 31, 8, 32, 12, 32, 7, 33, 13, 33, 7, 34, 13, 34 

29 DATA 7,35,8,35,9,35,13,35,14,35,15,35,0,0,0 

30 A=PEEK(106) 
35 ? " HUP!" 

40 DLL1=PEEK(560) :DLH1 =PEEK(561 ) 

45 REM ****************************** 

50 POKE 106, A-8 

60 GRAPHICS 5 

63 COLOR 1 :REST0RE 77 

65 ? " TWO!" 

70 READ X,Y: I F X=0 THEN 80 

75 PLOT X,Y:G0T0 70 

77 DATA 19,23,20,23,21,23,19,24,20,24,21,24,20,25,18,26,19, 
26,20,26,21 ,26,22,26, 17,27, 19,27,20,27,21 ,27,23,27 

78 DATA 17,28,19,28,20,28,21,28,23,28,19,29,20,29,21,29,19, 
30,20,30,21 ,30, 19,31 ,21 ,31 , 19,32,21 ,32,18,33,22,33 

79 DATA 18,34,22,34,18,35,19,35,20,35,22,35,23,35,24,35,0,0 

80 DLL2=PEEK(560) : DLH2=PEEK ( 561 ) 

85 REM ****************************** 
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90 POKE 1 06, A-1 6 

100 GRAPHICS 5 

103 ? " THREE!" 

105 COLOR 1 :REST0RE 1 17 

1 10 READ X,Y: IF X = THEN 120 

1 15 PLOT X + 20,Y:G0T0 1 10 

117 DATA 9,23,10,23,11,23,9,24,10,24,11,24,10,25,8,26,9,26, 
10,26,1 1 ,26, 12,26,7,27,9,27,10,27,1 1 ,27, 13,27 

118 DATA 6,28,9,28,10,28,11,28,14,28,9,29,10,29,11,29,9,30, 
10,30,1 1 ,30,9,31 ,1 1 ,31 ,8,32,12,32,7,33,13,33,7,34,13,34 

119 DATA 7,35,8,35,9,35,13,35,14,35,15,35,0,0,0 

120 DLL3=PEEK(5 60) : D LH3=PEEK ( 56 1 ) 

125 REM ***************************** 

130 POKE 106,A-24 

140 GRAPHICS 5 

143 ? " FOUR!" 

145 COLOR 1 :RESTORE 157 

150 READ X,Y:IF X=0 THEN 160 

155 PLOT X+20,Y:GOTO 150 

157 DATA 19,23,20,23,21,23,19,24,20,24,21,24,20,25,18,26,19, 
26,20,26,21 ,26,22,26,17,27,19,27,20,27,21 ,27,23,27 

158 DATA 17,28,19,28,20,28,21,28,23,28,19,29,20,29,21,29,19, 
30,20,30,21 ,30, 19,31 ,21 ,31 ,19,32,21 ,32,18,33,22,33 

159 DATA 18,34,22,34,18,35,19,35,20,35,22,35,23,35,24,35,0,0 

160 DLL4=PEEK(560):DLH4=PEEK(561) 

165 REM ***************************** 

168 POKE 764,255 

170 CH=PEEK(764) 

180 IF CH=31 THEN 190 

181 IF CH=30 THEN 200 

1 82 IF CH=26 THEN 210 

183 IF CH=24 THEN 220 

184 IF CH=12 THEN 230 

185 GOTO 170 

19U POKE 560,DLL1 :POKE 561 , DLH 1 : GOTO 170 

200 POKE 560,DLL2:P0KE 56 1 , DLH2 : GOTO 170 

210 POKE 560,DLL3:P0KE 56 1 , D LH3 : GOTO 170 

220 POKE 560,DLL4:POKE 56 1 , D LH 4 : GOTO 170 

230 POKE 106,A:RUN "D:NEXT4" 



XAMPLI 



Notice I i ne 7 which stores the value held in memory 
location 559. Then line 13 POKEs 559 with a 0. Well, this 
neat trick turns off the screen so that the pictures are 
drawn without your seeing them. It also speeds up the 
computer by about 30$ depending on graphics mode. Want to 
know why? Send us $40. and we..., oh well, I'll tell you. 
Location 559 controls the ANTIC Chip which puts the video on 
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the screen. Use the original value, stored in "NON" to turn 
it on. Use to turn it off. Line 169 is where we turn the 
display back on . 

THIS WORKS FOR ANY PROGRAM! 



5 TRAP 10 

7 N0N=PEEK(559) 

10 GRAPHICS 5 

13 POKE 559,0 

15 COLOR 1 

20 READ X,Y: IF X=0 THEN 30 

25 PLOT X,Y:G0T0 20 

27 DATA 9,23,10,23,11,23,9,24,10,24,11,24,10,25,8,26,9,26, 
10,26,1 1 ,26,12,26,7,27,9,27,10,27,1 1 ,27,13,27 

28 DATA 6,28,9,28,10,28,11,28,14,28,9,29,10,29,11,29,9,30, 
10,30,1 1,30,9,31 ,1 1 ,31 ,8,32,12,32,7,33,13,33,7,34,13,34 

29 DATA 7,35,8,35,9,35,13,35,14,35,15,35,0,0,0 

30 A=PEEK(106) 
35 ? " HUP!" 

40 DLL1=PEEK(560) :DLH1 =PEEK(561 ) 

45 REM ****************************** 

50 POKE 106, A-8 

60 GRAPHICS 5 

62 POKE 559,0 

63 COLOR 1 :REST0RE 77 
65 ? " TWO!" 

70 READ X,Y: IF X=0 THEN 80 
75 PLOT X,Y:G0T0 70 

77 DATA 19,23,20,23,21,23,19,24,20,24,21,24,20,25,18,26,19, 

26,20,26,21 ,26,22,26, 17,27,19,27,20,27,21 ,27,23,27 

78 DATA 17,28,19,28,20,28,21,28,23,28,19,29,20,29,21,29,19, 
30, 20, 30, 21, 30, 19, 31, 21, 31, 19, 32, 21, 32, 18, 33, 22, 33 

79 DATA 18,34,22,34,18,35,19,35,20,35,22,35,23,35,24,35,0,0 

80 DLL2=PEEK(560) : D LH2 = PEEK ( 56 1 ) 

85 REM ****************************** 
90 POKE 1 06, A- 1 6 
100 GRAPHICS 5 

102 POKE 559,0 

103 ? " THREE!" 

105 COLOR 1 :RESTORE 1 17 

1 1 READ X,Y: I F X=0 THEN 120 

1 15 PLOT X + 20,Y:GOTO 1 10 

117 DATA 9,23,10,23,11,23,9,24,10,24,11,24,10,25,8,26,9,26, 
10,26,1 1 ,26, 12,26,7,27,9,27, 10,27, 1 1 ,27,13,27 

118 DATA 6,28,9,28,10,28,11,28,14,28,9,29,10,29,11,29,9,30, 
10, 30, 11, 30, 9, 31, 11, 31, 8, 32, 12, 32, 7, 33, 13, 33, 7, 34, 13, 34 

119 DATA 7,35,8,35,9,35,13,35,14,35,15,35,0,0,0 

120 DLL3 = PEEK(5 60) : DLH3 = PEEK ( 56 1 ) 

125 REM ***************************** 
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130 POKE 106,A-24 
140 GRAPHICS 5 

142 POKE 559,0 

143 ? " FOUR!" 

145 COLOR 1 :RESTORE 157 

150 READ X,Y: IF X=0 THEN 160 

155 PLOT X+20,Y:G0T0 150 

157 DATA 19,23,20,23,21,23,19,24,20,24,21,24,20,25,18,26,19, 
26,20,26,21 ,26,22,26, 17,27,19,27,20,27,21 ,27,23,27 

158 DATA 17,28,19,28,20,28,21,28,23,28,19,29,20,29,21,29,19, 
30, 20, 30, 21, 30, 19, 31, 21, 31, 19, 32, 21, 32, 18, 33, 22, 33 

159 DATA 18,34,22,34,18,35,19,35,20,35,22,35,23,35,24,35,0,0 

160 DLL4=PEEK(5 60) : DLH4=PEEK ( 561 ) 

165 REM ***************************** 

168 POKE 764,255 

169 POKE 559, NON 

170 CH=PEEK(764) 

180 IF CH=31 THEN 190 

181 IF CH=30 THEN 200 

182 IF CH=26 THEN 21 

183 IF CH=24 THEN 220 

184 IF CH=12 THEN 230 

185 GOTO 170 

190 POKE 560,DLL1 :POKE 561 , DLH 1 : GOTO 170 
200 POKE 560,DLL2:P0KE 56 1 , DLH2 :G0T0 170 
210 POKE 560,DLL3:P0KE 56 1 , DLH3 : GOTO 170 
220 POKE 560,DLL4:P0KE 561 , DLH4 : GOTO 170 
230 POKE 106,A:RUN "D:NEXT5" 



METHOD 2 

This method differs only slightly from the first, but 
allows you more control of what goes on. The examples will 
explain the differences. 



e:xamf>i_e <*» 

Instead of using a variable called "A", we use "P106" to 
store the original # of pages in your memory. This will be 
more meaningful to us. P106 stands for the value to POKE 
i nto I ocat ion 1 06 . 



4 P106=PEEK(106) 

5 ? "t":? "AT PAGE ONE!":? "PRESS 1 OR 2 FOR THAT PAGE." 
7 ? "PRESS RETURN TO GO ON." 
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10 DP=PEEK(560)+PEEK(561 )*256 
12 POKE 16,64 

15 SAV=PEEK(DP+5) 

16 POKE 106,P106-4:POKE 89,SAV-4 

17 ? "AT PAGE TWO!":? "PRESS 1 OR 2 FOR THAT PAGE.":? "PRESS 
RETURN TO GO ON." 

30 POKE 764,255:TRAP 80 
33 CH=PEEK(764) 

35 IF CH=31 THEN 45 

36 IF CH=12 THEN 60 

37 IF CH=30 THEN 40 

38 GOTO 33 

40 POKE DP+5,SAV-4 

43 GOTO 33 

45 POKE DP+5,SAV 

55 GOTO 33 

60 POKE 106,P106:RUN "D:NEXT6" 

Line 10 stores the location of the start of the DL as 
one decimal number. Line 15 store the number we are after. 
It comes 5 bytes after the start of the DL, so we PEEK at 
DL+5, ie. it is the sixth number in the DL. 

Line 16 POKEs memory location 106 down by a number of 
pages (4 in this case). This line also stores a new value we 
need: location 89. This one is a copy of the value in DP+5 
which tells the system where the start of the display data 
is. The computer looks at the DL whenever a GRAPHICS command 
is used, and stores that value here so that it will know 
where the start of your data is. After a Graphics call, we 
are free to change this number (in 89) to "fool" the 
computer into doing what we want. After POKEing both of 
these locations down far enough, we now write some text to 
the new area of memory on line 17. This could be done many 
times if you have enough RAM. 

Now when lines 30 to 38 choose which screen you want, lines 
40 or 45 just change the value in the first Display List 
that controls where the first DL gets it's data from. We 
don't care about a second (or 3rd or 4th...) Display List as 
in Example 1 '. 

so WM**-n» 

Well, now by just changing one value at the start of the 
first Display L I st+5 (DP+5), you can tell the system to go 
display different data from all over memory. This change 
could be easily controlled with a joystick as we do in our 
Scrolling Program, Tricky Tutorial #2. 

Also, you might want to look at one screen while you are 
drawing several others; for example while a decision was 
being made about options on the first. 
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XAMPLE 



This does what we just suggested. You can not only look 
at two screens (press for screen 1 and 4 for screen two), 
but by inputing other positive numbers you can look down in 
memory. By inputing negative numbers, you look up In memory 
until you reach the top. The stuff you see on the screen 
will be the alpha-numeric equivalent of the BASIC program, 
your screen data, the Operating System or whatever you are 
looking at. The only changes to this program are: 

Lines 20 & 33 input a number. 

Line 35 tests that number to see If it Is too big. 

Line 40 redirects the DL as before, but with your value 
Instead of the previous fixed value of 4. 



4 P106=PEEK(106) 

5 ? "t":? "AT PAGE ONE!":? "PRESS START AND RETURN AT THE 
SAME TIME TO GO ON.":? "PRESS BETWEEN AND ";P106-5; 

7 ? " TO LOOK AT MEMORY IN 1/4 PAGE SCREEN INCREMENTS.":? 

"THEN PRESS RETURN. REPEAT AS DESIRED." 
10 DP=PEEK(560)+PEEK(561 )*256 
12 POKE 16,64 

15 SAV=PEEK(DP+5) 

16 POKE 106,P106-4:POKE 89,SAV-4 

17 ? "AT PAGE TWO!":? " PRESS START AND RETURN AT THE SAME 
TIME TO GO ON" 

20 DIM A(2) 

25 POKE 53279,8 

30 TRAP 30:Z=PEEK(53279) : IF Z=6 THEN 80 

33 INPUT A 

35 IF AXP106) THEN 60 

40 POKE DP+5,SAV-A 

55 GOTO 30 

60 ? "NUMBER TOO LARGE, MUST BE LESS THAN" ; P1 06-5 : ? "WE ARE 

NOW AT 4 PAGES DOWN IN MEMORY" 
65 POKE DP+5,SAV-4:P0KE 89,SAV-4 
70 GOTO 30 
80 TRAP 40000:POKE 1 06 , PI 06 : POKE 89,SAV:P0KE DP + 5,SAV:RUN 

"D:NEXT7" 
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EXAMPLE 8 

The last example Is exactly the same as Example 7, 
except it looks at memory using a colorful graphics 
viewpoint of the data there. Be sure to try negitive numbers 
on the last two examples also. Since the program Is designed 
to look up or down in memory, the negitive numbers look down 
while the positives look higher in RAM. You can look most 
anywhere from within the BASIC Cartridge to the data flowing 
in and out of the Operating System (try large negative 
numbers for this). ..See if you can find an area that is 
changing for real special effects. 



4 P106=PEEK(106) 

5 GRAPHICS 5:C0L0R 1:PL0T 10,10:DRAWTO 1 , 20 : DRAWTO 40,20: 
DRAWTO 40,10:DRAWT0 10,10 

10 DP1=PEEK(560)+PEEK(561 )*256 
12 POKE 16,64 

15 SAV1 =PEEK(DP1+5) 

16 POKE 1 06 , P1 06-8 

17 GRAPHICS 5:C0L0R 2:PL0T 20,20:DRAWTO 20,30:DRAWT0 30,30: 
DRAWTO 30,20:DRAWTO 20,20 

20 DIM A(2) 

21 DP2=PEEK(560)+PEEK(561 )*256 

22 SAV2=PEEK(DP2+5) 
25 POKE 53279,8 

27 ? "PRESS START AND RETURN TOGETHER TO GO ON." 

30 TRAP 30:Z=PEEK(53279) : IF Z=6 THEN 80 

33 INPUT A 

35 IF AXP106) THEN 60 

40 REM POKE DP1+5,SAV-A 

41 POKE DP2+5,SAV1-A 
55 GOTO 30 

60 ? "NUMBER TOO LARGE, MUST BE LESS THAN" ; P1 06-5 : ? "WE ARE 

NOW AT 4 PAGES DOWN IN MEMORY." 
65 POKE DP+5,SAV-4:P0KE 89,SAV-4 
70 GOTO 30 
80 TRAP 40000:POKE 1 06 , P 1 06 : POKE 89,SAV:P0KE DP + 5,SAV:RUN 

"D:NEXT8" 



THAT - - S IT 

Just take any of our examples and try to modify them so 
that you can both understand the methods and make your 
programs look and run much cleaner. I hope you find many new 
uses for PAGE FLIPPING. Please write and tell me about your 
accomplishments using techniques in TRICKY TUTORIALS. BYE!! 
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TRICKY TUTORIAL #4 
BASICS OF 
ANIMATION 



BASICS OF ANIMATION 



Basics of Animation is a set of 
simple programs designed to teach those 
new to computers how to make shapes 
appear to move around on the screen. The 
three methods demonstrated are animation 
using the PRINT COMMAND, PLOT COMMAND, 
and ATARI'S great PLAYER/MISSILE 
GRAPHICS. 

The person using this lesson should 
be familiar with BASIC programming so 
that he or she can read the code that is 
included. Since the program is not 
protected, the user is encouraged to try 
their own modifications inorder to gain 
a greater perspective of the art of 
an imat i on . 



EDUCATIONAL 

SOFTWARE 
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Th i s program 
for TAPE users 
DISK. 



requires 16k of memory 
and 24k for those using 
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Soquel, CA 95073 
(408)476-4901 



i nc 
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tm 



[c] 1981 by S.C.E.S. 



TRICKY TUTORIAL #4 

BASICS OF ANIMATION 

by 
Rob i n Sherer 



HOW TO LOAD 

TAPE. . . 

Place the tape in your recorder, label side up. Make 
sure the tape is rewound, and the BASIC Cartridge is in 
place. Also, reset the counter to zero. Push PLAY on the 
recorder and type RUN"C: and press RETURN. If the program 
won't start to load, try positioning forward or backward a 
little. The easiest way to find the beginning is to listen 
to the "noise" on the tape with a regular recorder. When you 
find the steady tone, you have the beginning of the program. 
We recommend you write down the number on your recorder's 
counter as each program example starts. This wi I I make it 
easier to find each part later on. 



DISK. . . 

To load and run the disk, first turn on your disk drive 
When the busy light goes out, place the disk in the drive, 
Now turn on the computer, with the BASIC Cartridge in place 
The program will load each part and run by itself. 



Any defective tapes or disks should be returned to 

Educational Software inc. 
4565 Cherryvale 
Soquel, CA 95073 
(408) 476-4901 
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LET THE ANIMATION BEGIN! 
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perhaps just honf + ? ,ntr 'cate detail 5,e + ° do 

Programming? We . , °^ a 9 ame or business a „ D r a + e " shapes 
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on 

t 
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life-like. nd fas+ enough s o t h a + + y ° U mus+ ">ove 

at +he V appear 
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Rule number one: 
IT CAN'T BE DONE FROM BASIC 

Walt! Don't panic and return this program to us before 
you read on. We know you are not a Assembly language 
programmer. Neither are we, except when necessary. 

BASIC in the ATARI is slow because it is an interpreter, 
meaning that every time you te I I it to go move some point 
around on the screen, it has to first go and figure out 
exactly how to do what you've asked. This takes so much time 
that even with the machine doing hundreds of thousands of 
steps per SECOND, it can only move a single point around as 
fast as our first two examples. The way around this is to do 
one of four things: 

1) You can program in the machine's language, where It 
doesn't have to interpret. This, however, would be 
too difficult for the average ATARI user. 

2) You can use machine language routines built into the 
machine. A simple example of this is what we are 
doing in Part 2 using the PRINT command to draw 
some what complicated shapes very quickly. In fact 
if you look at the code for the space bug, you will 
see a delay loop was put in to slow it down! Also, 
although too complicated to explain in a 
introductory program like this, you can redefine 

the characters you are printing to draw almost 
anything you can imagine. The monsters in SPACE 
INVADERS are redefined letters of the alphabet, 
and are moved about by PRINT commands. 

3) You could also go buy a larger BASIC that includes 
some machine language movement routines to move your 
shapes around. (Basic A+ or Microsoft Basic). 

4) You can use PLAYER/MISSILE GRAPHICS like the tie 
fighter program we include as an example. 



ANIMATION USING THE PLOT COMMAND 

If you haven't already done so, now is the time to load 
in the program. Follow the instructions in the program and 
use your Joystick to move a simple square around the screen. 
This is similiar to the movement in games of the SURROUND 
type. As you can see while you follow the program , it is 
really quite simple to move a square! We show you the code 
here so you can see the necessary steps to move the square. 
Don't worry about learning it all now. 
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THIS IS THE CODE FOR MOVING A SQUARE: 



JL 0100 

J.. O X 3 

T X C IK 

±0105 

X JL X O 
1. O 1. 2 

S3 

X O X ■* 5 
..1. JL 4 6 
.*.. 8147 
X .1.. 4- » 
.1 O JL 5 O 
I JL 5 



GRAPHICS 4IPOKE 764, 255 ! X=28 5 Y=12 

'? "HERE 15 OUR SQUflHE":? "USE VOUR JOYS 

TO MOVE XT MHEN DOME PBE53 ft«¥ KEY" 

U = S T ICK t6) 

Y = Y + C V = JL 3: I* ♦ C U ■= 3 3i HI- £ U = 5 » - I «> = JL O S — C W = J. <* > — C U 

K = K- eU = JLO:» - CU— -JLJL3I -- e w = ■s* > + to = ©> ■*• tV = 73 + cm — 

I F K < JL THEM H = JL 

IF K>79 THEM K=V9 

I F Y < .1 THEM Y = JL 

IF Y>39 THEM Y-33 

COLOR .1 : PLOT K , Y ;; IF REEK (764J ::255 THEM 



The better games of this type add another player to 
compete with and leave a controlled trail behind them. The 
trail is kept track of by the computer. Then, when you touch 
a location where the computer's "records" show a trai I is, 
it scores for the other player 



After you have run 
where we show you how 



the program through to the point 
to erase the trail, we suggest you 



program (press BREAK 
always come back and 



stop the 

You can 

with disk, type RUN "D : PL0T2 . DSK " . 

The reason for stopping now i 

program that makes use of a 



and remove your tape or disk), 
finish it later. To continue 



For tape, use 



PLOT statement 
the listing. 



RUN"C: ". 
s for you to write a small 
square being moved using the 



The easiest way would be for you to look at 



HERE'S THE CODE FOR MOVING A SQUARE, BUT WITHOUT A TRAIL: 



.1. Oi52i 


M = 


STICK COS 


X 5 2 5 


SE 


T C O l_ O R 2 » 0,0: C O L. O R 2 


JL 5 3 O 


IF 


V ••:■• JL 4- T H E H Y = Y ~ JL S PLO T !K , Y ■*■ JL 


X 5 4- O 


IF 


V ■-- JL 3 T H E M Y --:: V + JL s IP L. O T K „ Y JL 


jl esse 


I F 


«U = JL JL T H E M M = H — .1 8 R L. O T H +• JL > V 


JL S 6 


IF 


W = 7 T H E M K -- H * JL : R L. O T K X , Y 


.:«.. 5 75 


I F 


H < JL T H E M K = I 


JL 5 O S 


I F 


X > 7 -3> T H E H M = 7 9 


JL 5 3 O 


IF 


Y < JL T H E IMI Y ~" .JL 


JL G O 


I F 


Y > 3E '3> T H E M Y = 3 9 


JL 6 JL 


C O «._ O R JL ! R L. O T K,Y! I F REEK £7643 


JL 5 2 







"II " HEM 



Lines numbered from 10520 to 10610 are the ones that 
move the square around. Add to our program using your own 
ideas. Also, since the code exists in the program we sent 
you, please feel free to delete the lines you don't need, 
and start with them already in the computer to save time 
(the Assembler cartridge could do this quickly!). Please be 
sure if you save your work, it is on a separate tape or 
disk. 
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NOTE: Even if you intend to do only non-game appl ications, 
the learning you gain from writing a simple game will help 
other attempts at animation. 



Before going on, we want to point out that when using 
PLOT and erasing your "trail", you have to actually PLOT the 
position you are erasing with the color of the background. 
This makes that position seem to disappear as you PLOT the 
next position in the color of your choice. 



do 



The next thing 
is to draw out the famous 
using the PLOT command. 



to show you the BASICS OF ANIMATION 
"Tie Fighter" shape and move it 



PLEASE NOTE THAT THIS IS ONLY AN EXAMPLE AND THE SHAPE 
COULD BE ANYTHING FROM A BUSINESS TO A HOME APPLICATION. IT 
ALSO COULD BE MUCH LARGER THAN WE DREW. I keep our programs 
simple to allow everyone to understand the PRINCIPLES 
INVOLVED, but with more memory and time you can do great 
things like this: 




- 5 - 



Here Is how to Input points to plot: 



1 1 


2,1 


3,1 


4,1 


5,1 


6,1 


7,1 


8,1 


1 i 


2,2 


HI 


4,2 


III 


6,2 


7,2 


8,2 


Hi 


2 , 3: 


111 


HI 


$& 


6,3 


7,3 


8,3 


ill 


2,4 


Hi 


4,4 




5,4 


6,4 


7,4 


8,4 


III 


2,5 


3,5 


4,5 


#*# 


6,5 


7,5 


8,5 


1,6 


2,6 


3,6 


4,6 


5,6 


6,6 


7,6 


8,6 


1,7 


2,7 


3,7 


4,7 


5,7 


6,7 


7,7 


8,7 


1,8 


2,8 


3,8 


4,8 


5,8 


6,8 


7,8 


8,8 



F i gure 1 



Look at Figure 1. I drew out a shape at the upper left 
corner of what is called an X-Y coordinate system. The 
upper left most point that is filled in is at x=1 and y=1. 
Moving down the figure the next point is at x = 1,y = 2, then 
x=1,y=3, etc. with the last point of OUR shape at x=5,y=5. 
The computer doesn't care what order you input points into 
PLOT statements, just input them all. This means you don't 
have to use the points in the same order as we did, or even 
use the same points. Now, to put these into a BASIC program 
we use the DATA statement (read your BASIC manual!). It 
I ooks as follows: 

DATA 1,1,1,2,1,3,1,4,1,5,2,3,3,2, 
3,3,3,4,4,3,5,1,5,2,5,3,5,4,5,5 

Every two numbers represent one point to plot. 
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Here Is the complete TIE FIGHTER code: 

-1.. JL 826 GRAPHICS 4iK=46 ! V = 28 i COLOR i i GO S U8 X 1 9 3 

8 : ? "USE JOYSTICK TO HOWE FIGHTER":? "PRESS ft 

HV IKE.Y TO GO OM" 

JL 1 8 2 S P O K E 7 64,255: S P E E 10 = 5. S SETCOLO R 2»8,0:TR ft 

IP JL JL » 2 O 5 S = SPEE H> 

11638 U = STICKt8J:IF U = Jl5 THEN 11832 

11831 GOTO .11835 

JL 1832 X F P E EKI764) = 2 5 S T H E N 11838 

.1.1833 IF C«TR = 2 THEN 12688 

11834 GOTO 12888 

1.1.835 COLOR 2:GOSUB 11938 

1 18 41 Y = V+CV = 13)*S + C W -- 9 )*S+ W := 5 J **S - t U = JL O 3 MS c 

U :::: 143* S - C U = 6 3 ** S 

118 4 2 K = K-(U = 1 8 3 *6 S - (y = 113*5 £ U = 3 3 M S •*• C U = 6)*S * C 

y :::.: 7 ;> MS •#■ £ y ~ gf j MS 

1 1928 COLOR l:GOSU B 1 JL 9 3 8 : X F P EEK ( 7 Hi 4 3 = 2 5 5 T H 
E N 11 & 3 8 

119 3 8 RESTORE 11968:POKE 752,1 
119 4 8 R E A O A , B : X F ft -• 8 THE.' N 1 1 9 7 8 
119 5 8 PLOT ft + K^B + YiGO T O 1 1 9 4 8 

1 19 5 8 D ft T ft 1,1 , 1 , 2 , .1 , 3 ,1,4- , 1 , 5,2, 3 , 3 , 2 , 3 ,3,3, 
4,4,2, 4 , 3 , 4 , 4 , 5 , 3 , 6 , 1 , 6 , 2 , 6,3,5, 4. , © , 5 , 8 ,8,8 
JL 1 9 7 8 R E T 111 R N 



The last part of this lesson allows you to move the 
cursor up to the data line we used for the tie fighter 
shape. The program is now stopped, waiting for you to enter 
new numbers into the DATA statements. If a mistake occurs, 
you can try pressing RESET and typing RUN, but if the DATA 
Statements get too messed up it may be easier to reload in 
the program. You probally won't have to go through this 
since it is easy to change the required lines in the 
program . 

All you need to do is type in new numbers that you have 
chosen, based on a drawing of YOUR shape made on standard 
grid paper. Once the DATA statement looks correct, press 
RETURN to enter It and then type CONT and press RETURN again 
to restart the program. Also, you may use numbers bigger 
than the 8,8 for your shape, but when you move it, if it 
goes off screen it will bomb the program since we only 
allowed in our code for the smaller shape. The more points 
you use, the slower It goes. Again, feel free to copy and 
modify our program or, If you like, just slowly change a 
small part of it to see how your own changes can add to it 
or make it better!!! 
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ANIMATION USING THE PRINT COMMAND 

We included the "Bird at the Ocean" from the ATARI 
BASIC manual as a convenience for those who never typed it 
in. It demonstrates the simple use of alternating between 
two shapes in a PRINT command in order to obtain a feeling 
of motion. We will use this method now. Again, after 
finishing this part please modify the shapes or the 
background to get a feel for your own ideas. Backgrounds are 
simply created with PLOT & DRAWTO commands and the special 
Graphics Characters. We next show you animation of a single 
character in the horizontal and vertical direction. They 
both have simple sounds to demonstrate how easy sound is to 
add . 

HERE'S THE CODE FOR THE SPACE BUG: 

213X0 GRAPHICS .18: 2 *»© I ' « M O M L. E "IT S T R V ft 5 P ft C E 

BUG"" i FOR W=l TO S & & 

2i32fl TRAP 23512 

213 38 2 ■•«"• 5 M=JL ! Y = JL» I 

2 1 3 4- 8 POSITION K, V 

21345 2 "" "IP05ITI0N 

21359 2 " "X/" "IPOS X T X O N 

21366 2 " ■ jilfc," "iPOSI T I O I 

21378 2 ""I |"« 

2 1391 S O U N D 1 , 2: 1 8 * 1 O , CNT + 2 

2 1392 FO R M= 1 "I" O 2 8:NEKT WiPOSI T I O M K , V 

2 1393 "?■ " " "IP05ITI0M K , V ■*• 1 

213 9 4- 2 " " " " S P OSITION K , V •*• 2 

213 9 5 2 " " "IPOSI T ION K,V *■ 3 

2139 6 2 «" "" 

213 9 2 K = K + 2 S POSITION K , V 
214O0 2 " " "iPOSITION H , Y + 1 
21418 2 " "X/" " " ! P O S I T ION Kj V * 2 
21420 2 "A"*:POSITION K,V + 3 

21430 2 ""XX"" 

21431 FOR 14=1 TO ZOiNEKT W: POSITION K,¥ 

2 1 4 3 2 2 " " ":POSI T ION K , V +• 1 
214 3 3 2 • ■ "iPOSITION K , V +■ 2 

21434 2 " " ":POSI T ION H , V "*- 3 

21435 2 ■• 

21440 SOUND 1,160,10, CNT+4 : K=K+2 : IF K>37 THEN 

21460 

214 50 GOTO 213 40 

21460 H = l : CHT = CMT + 1 5 IF CNT = 5 THEN 21488 

21420 GOTO 21348 

214 8 SOUND 1,8,0,O:IF COUNT-1 THEN 22S60 



«*6 .:: ' 
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The program will 
up to the six II nes 
Change (using the s 
ONLY BETWEEN the quo 
top line and press R 
i nto memory . I f you 
23500 and press RETU 
move to a BLANK are 
press RETURN to see 
you have played enou 
first before your sh 
shapes . You will qui 
using the PRINT comm 
over is rewritten an 



stop and allow 
that hold the s 
pecial graphic 
tes . When done , 
ETURN unti I a I I 
goo f up, clear 
RN . If you ente 
a on the scree 
your shape move 
gh with our cod 
ape is printed 
ck I y not i ce a m 
and (and PLOT t 
d thus d i sappea 



you to mov 
nape for the 
characters 
move the c 
six I i nes a 
the page a 
r the new sh 
n and type 
across the 
e, try add i n 
or perhaps 
a i n drawback 
oo) ; ever yth 
rs 



e the cursor 

"SPACE BUG". 

) the shapes 

ursor to the 

re re-entered 

nd type GOTO 

ape correctly 

"CO NT", Then 

screen. When 

g backgrounds 

try several 

to an i mat i on 

I ng you move 



-Note- 
To do full animation many additional tricks are taught in 
our other Tutorials. This is not intended just to sell more 
programs, but you deserve to know how to use the full power 
of your ATARI. Some of these other Tutorials include PAGE 
FLIPPING, MODIFICATIONS TO THE DISPLAY LIST AND SCROLLING. 




- 9 - 



PLAYER MISSILE GRAPHICS 



You probally already have heard of the ATARI'S unique 
feature called PLAYER MISSILE GRAPHICS (PMG). What PMG does 
is allow you to animate simple shapes around on the screen 
without having to redraw them as we did in h h e 
lessons using 
the hardware, 



earl ler 

PRINT and PLOT. This capability is built into 
so all we have to do is program the hardware 



ith simple POKE commands. 




~ 



What makes PMG ha 
built in features, a 
reach a compromise wi 
we include an example 
before, if you will j 
you will see the ef f e 
better if you had a s 
shapes of the Player 
note that the way thi 
i t cou Id have been d 
works and that was th 
more detail in our MA 
explained in a sepera 



rd to exp I a I 
nd so many 
th an i ntrod 
us i ng PMG w 
ust take the 
cts of each 
pec I f i c goa I 
s , or a d I f 
s examp I e wa 
one . It was 
e goa I . The 
STER MEMORY 
te Tutor i a I ( 



n i s that ther 
POKEs to do. 
uctory I esson 
i th some exp I a 
t i me to mod i f 
change. It w 
in mind, say 
ferent backgr 
s written is 

wr I ttrn long 
various POKEs 
MAP, and PMG I 
#5) . 



e are so many 
We wanted to 
like this, so 
i nat ion. Like 
y our program 
ould be even 
to change the 
ound. Please 
not the best 



ago 



but it 



are I I sted I n 
s more fully 
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HERE'S THE PGM CODE: 

2 © K = lSiREM INITIAL P O S O F P /' M J. 

3 O TRAP 2 O 

4© SOUND 3 ,13,8,2 

5 O PRINT » • f5 " " 

60 GOSUB 688 5 REM BACKGROUND SUBROUTINE 

78 SETCOLOR 2,8,0! K = 120 5 ¥ = 98 S REM SET BACKGRoU 

HD COLOR AND PLAVER POSITION 

SO POKE 7" O 4. , .133: : REM S ETCOLOR P L A V E R O T O BLU E 

■3 1 POKE 70S,i98:REH SETCOLOR PLAYERI T O GREEN 

I O O A = P E E K C I 6 » - : P O K E 5 4 2 7 IS 1 » A : P MB A5E = 25 6** A s R 

EM SET PLAVER-MI55LE STARTING ADDRESS 

iifl POKE 55-9,46:POKE 5S277,3:REM ENABLE P IN G R 

APHXCS WITH 2-LINE RESOLUTION 

.1. 2 O POKE 7 5 2 , .1. S REM M A K E C U R 5 OR INVISABLE 

1 SO FOR I = P MB A 5E + 5 1 2 T O P 1MB A 5 E + 6 40IP0KE I , O : H 
E H T I S R E M CLEAR OUT P L A V E R O F I R S T 

A 4 O F OR I = P MB A S E ■*• 6 4 O T O P 1MB ASE + 768:POKE I,8:N 
EKT I S REM CLEAR OUT PL A VERA FIRST.THIS IS TO 
PREVENT RANDOM JUNK . 

ASO FOR I=PMBASE+640+K TO PMBA5E+644+K ! READ B 
SPOKE I., BiNEKT I s REM DRAW PLAVERA 
A 6 O DATA A 55 3 , A 8 9 .,. 2 5 5 ,189 , J. 5 3 
178 REM DATA FOR TIE SHAPE 

A 8 O F O R I = P MB A 5 E + 5 A 2 * V T O P MB A S E + S A 6 + V I R E A D A 
! P O K E I,A:NEKT I ; REM DRAW PLA V E R O 

190 POKE 53256,0HPO K E 5 3 2 6> © ., A 8 ! IR E M S I Z E O F P L 
AVER© AND ALL MTSSLES 

2 O O POKE 532S7, :: R E M SIZE OF PLA V ERA 
2 A O DA T A A 5 3 , 189, 2 5 5 , 189, AS 3 

220 POKE 6S8,3i? ""PRESS A TO STOP GAME. 1 ."" 

2 30 REM SAME SHAPE FOR OTHER PLAVER 

24-0 REM MOW COMES THE MOTIONS COLLISION ROUT IN 

2SO I F PEEK*: 7 © 4 3 -■-■ 3 A T H E N A © 5 © 

26 F = PTRIGt8) S REM READ TRIGGERS 

270 G=PTRIGtl) 

2 8 IF F - . O R MX 5 = A T HEN G O 3 U B 3 S 1 © S R EM S L O W M 
A 5 S L E R O U T I N E 

290 I F G := © T H E M G €3 '3 U B S 2. © : R E M F A S T MI 3 S L. E MO Kf 
E R O U T I N E 

3 O POKE 656,0:IF F S = A O R G 3 = A T H EM 2 ""GREEN S 
S C O R E = " " .? 3 C O REG:"" BLUE S 3 C O R E = " " S S C O R E B 

3 A F S - © : G S - © : R E M T H E S E T E L L A T A R I T O PRIM T S 

CORE 

320 POKE 53278, ©S REM CLEAR OUT COLLISION REGI 

STEPS TO USE AGAIN 

338 A=P ADDLE (8) 

34© B "RADDLE (J.) 

3 5 POKE 53248,AiIF MI S = © A N D A < > © T HEN P O K E 

5 3 2 5 2 „ A - A S REM M O U E P L A V E R C A N D M I S S L E © 3 T O N 

EM L O C A T I O N I N S TAN T L V ? 
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5 3 245,Bi:PO IK.' E ',5 3 2 5 3 , B — J. 



if* EM SftME FOR 
A G A X H 



3: 6 e P O K E : 

tP LAYER X 

3 7 O G O T O 2 83 OlREM GO R E A D P Hi D D L E 5 

380 REM 50UBR0UTIKE FOR BLUE MI55IL.E 

3 9© -5 O II N D © , 2: 2: 7 <U**-Z , S .,. X NT C I 6 - "U> ,-' .JL & 3 S R E M 

OOfMB> DECREASE AS MISSILE MOVES 

4- 0O W ■-•••■ M *• JL S IP O K El' P MB A 3 E + 3 8 4. + V ~ U , O S P O IK E P MB A S 

B 3 + V ™ """ ■' *■ 

4-J..O E=PEEK C53256:) ! IF 

FOR HIT » 

MISSILE MOWED FAR IE 



E > T H E N HIT=l!REM 



MAKE 5 

8-3 
T E 3 T 



4- :Z O I F 
O IS G H 
4. 3 O MI 5 = JL :RET 111 R N 

4- 4 & H I T = B B F' 5 -- 
3 & HIT ARE 
4. 5 © 5 O U N 8> JL 



> 9 5 T H E N 5 O : R E M 



U E M 3 A 
COUNTERS 

a 2 I ., JL , 1 2: 



T P R I W T Wl E M 3 C O R E , M I 



POK E S 3 2 4 9 , 250 5 F O R 114 = JL 



TO 280:N E KT N 
4 6 SOUND 1,0,0,0 

4 7 O P O IK E 53249 , JL 2 © S P O K E 5 3 2 7 8 
IM REAVER! AND CLEAR COLLISION 
4- S O 3 C O R E B — S C O R E B + JL 

U = O ! MI S = O S S O U N D 0,0 , 0,0: R E T U R N 
IF HIT-1 THEN 4 40 

V = 8; MI S = ■© S SO I.J HD 8,8,e,8iRETURN 
S O LI N D 0,200 , & , © 5 P = 

A 3 2 POKE IP M B A 3 IE + 3 B 3 + I 
P-PEEK (532571 
5 9 



: H c M R E P O 3 I T I O 

R E G I S T E R 



498 

50© 

5 JL 

52© 
5 30 



F O R I = X 5 



55 
568 
5 7 O 
5SO 
5 9 



■It THEN RETURN 
3 A V S T O IP R I N T 



NEW! 



1" O JL 3 ! P O K E IP MB A 3 IE + 3 B 3 + X * O ! P O IK E 
P MB A S E + 384 + 1 , 4 S 
54 IF Pr--3 THEN 

N E H T I 

SOUN D , O , , O 

RETURN 

R E M P = PEEKt532S73 HF P : 

SOUN D 0,0,0, 5 G S ■•■- JL :REM 
SCORE 

6 RESTORE 630: 5 OUHD X , X 2 JL , B , JL 2 
6IO FOR I = PMBASE+512 TO IPMBA3E + 6 4 
EKT I: REM CLEAR OUT PLAYER FIRST 
6 2© Y = 7 5 :FOR I -- P MB A S E + 5 JL 2 + K + V T O P MB A 3 E + 5 JL 6 + K 
+ V.READ B SPOKE I,BlNEKT I: REM DRAW PLAYER 
6 3 O D A T A 15 3, J.. 89,255 , JL B 9 , 

FOR I --- 3 B 4. T O 5 12HPOK E 

S O U N D JL , ,0,0 

SCORE6 = S C O R E G + .1 

RETURN 

GRAPHICS B : CNT=S 

C B L O R i;K::RMD(e) -3*3 JL 9 S V = R N D if O 3 W JL 5 9 
Y : I F c N T > .1 5 O THEN RETUR N 
6 9 



6 4 
65 
660 
670 
6BO 
69fl 
•8 • iiPLO T H 
7" OO GO TO 



IP OKE I , O S 



JL 5 3 
P MB A S E + I ,8:NEK T I 



CNT=CN T 



~ 



- 12 - 



Player Missile Graphics Explanation 



LINE 50 : Clear the screen 

LINE 70 : The X and Y position of player one 

i s estab I i shed here . 

LINES 80-90 : Player colors are stored in 704 to 707. 

LINE 100 : Memory location 106 holds the value 

(in # of PAGES) of your top of memory. 
We simply subtract 8 pages to make 
room for the shapes of the Player to 
be stored . 

LINES 130-140 : To create or erase a player, you POKE the 

shape into memory where we reserved it in 
line 100. We first erase the player by 
Poking in all 0's. Player starts at the 
value of PMBASE plus 512 and goes for 128 
locations in memory. Player 1 starts at 
640. 

LINES 150-160 : Read the shape into memory. 

LINES 250-370 : Main loop of program. Location 764 holds 

the last key pressed. When you run the 
program, you will note that the missiles 
don't move the same. One moves In a loop 
that is fast because it doesn't go back 
and al low any players to move. The 
other is slow because it does. The 
collision registers mentioned in the 
comments to I i ne 320 "record" when 
certain things touch eachotheron the 
screen. You determine what this location 
looks for by the value you put into 
623 (if desired). Lines 350 & 360 
POKE the location that controls where 
ACROSS the screen the Players will 
appear. If you don't plug in Paddles 
the values transfered here will be 0, 
so the players will be off screen. 
Values of about 40 to 200 will be on the 
screen . 
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LI NES 390-f i nish 




the rest is really just two subroutines 
to move the missiles up and down the 
screen. This is done by erasing the 
shape at it's current location, and 
drawing it at a new place in memory 
placing O's at the old memory locations, 
and placing 1's in memory). If you 
draw it close to the last location, the 
motion will be slower, but smooth. We 
also add to the scores here when the 
collision registers at 53256/7 don't 
hold a 0. Finally, the routine at line 
690 just creates stars by random PLOTs 
on the screen. 



The only way that all of these POKEs will become 
familiar to you is to get a hold of one of the publications 
that gives detailed descriptions of each memory location 
needed for PMG. Our Master Memory Map is good, and ATARI'S 
Operating System manual is better (but very hard to read). 
We hope you feel that this lesson was worth the cost. 

Thanks bye ! 



~ 
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YOU CAN ANIMATE YOUR OWN CHARACTERS .. 
WITH PLAYER MISSILE GRAPHICS (PMG)! 



Ok! You spent your hard earned money on this program 
because everyone says that Player Missile Graphics is the 
way to go, but you know it is too hard to ever real ly 
understand. Besides, you bought $25 worth of magazines for 
the two page articles on the subject, and they all said the 
same thing (which made little sense to you). After all that, 
you got ATARI'S book, DE RE ATARI, which was great reading, 
but Chris Crawford only explains the basic capabilities of 
PMG. How do you put It all to practical use? Well 

Were Go i ng to 
Write a GAME! 

Most of us like to play arcade games, and since most 
arcade games use cute little figures and a maze, we will 

design our game that way. One of my favorite games is called 
PACMAN (tm). We can't actually use the same game 
arcades due to legal problems, but we can take 
I i Tt I e character and put him into our our own hair 
situation! 



as the 
the cute 

raising 



AM games take imagination. Let's put 



ours 
it 



to work 
1 with on 



making up all kinds of shapes to animate and "play 
the screen. Some of these characters will be used in 
demonstrations within the 14 main programs. You can take 
over where these lessons leave off and create any kind of 
application you wish. Player/Missiles is not just for games. 
Any time you need color or movement in your programs PMG is 



the best way to get the job done. 



For example, ATAR 



SCRAM program, a Nuclear Plant Simulator uses Players and 
Missiles for the various tanks and mechanisms on the screen. 

WHAT IS A PLAYER/MISSILE? 



The names Players and Missiles come from the original 
use of these objects as guns (for the Player to use) and 
bullets or Missiles for the "shot" that was fired. Now, of 
course, many other uses exist, but the names are still used. 
Let's begin by looking at the original use of PMG, a space 
game demonstration. Run the f irsf program now and fol low 
along in the discussion 




LOADING INSTRUCTIONS 
some s| 



Before I begin, some special notes are needed to help 

users and those with only 16K of memory. When teaching 

t Player Missile Graphics, I can't help but get carried 

Orbie, Pixel, and I were having so much 



tape 

about Player 

away 



9< 
fun 



fhat we 



wrote too many examples for this TUTORIAL. Once you finish 
this lesson, you will find yourself creating all kinds of 
animated creatures! Fortunately, my Robot helper, Prototype, 
ate a few of the programs, leaving us with just enough 
examples to fit a very full tape. 

Because of the length of the lesson, some of you may 
have trouble reading in the programs on your 410 tape 
player. You will have to get 14 successful LOADS; so, as you 
LOAD each program , SAVE it on your own backup tape. Before 
you start, wind the tape forward and backward once. To load, 
reset your recorder's counter to zero. Now type RUN " C : " 
and press return twice. The tape should begin to load into 
memory. There is a backup copy of all examples on the back 
of your tape, but If loading still produces an error 
message, you have two options: 
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2) You 
forth until 



can "guess" at the correct spot by going back and 
you get lucky, but that is very frustrating! 



Don't forget, if any program doesn't load properly, you will 
find backup copies on the reverse side of the cassette. If 
the program STILL doesn't seem to load properly, try another 
recorder (perhaps at a store or a friends house). If you are 
so upset at the darn thing you want to buy a disk drive, 
send it back for a prompt (I hope!) replacement to: 

Educational Software 
4565 Cherryvale Ave 
Soquel, Ca. 95073 
(408) 476-4901 





- 16k Users - 

I haven't forgotten you. All programs on this tape 
except the two utilities will run on your machines. The 
utilities are very nice, but not necessary, so just save 
them until you increase your memory size to 32K. Example 
5.4, the Playfield editor, is out of order on your tape. It 
will be found after example 5.13 (Two players together), 
which is the last example that runs in 16K. Finally comes 
example 5.14, the last editor, which also requires 32K. 

- HOW TO USE THIS MANUAL - 



Without the information In this manual, these programs 
are rather boring. Only when you understand what is being 
shown in the examples will P I ayer/M i ss I e Graphics (PMG) 
begin to make sense to you. In fact, after you have written 
your first real game or business application you'll feel a 
wonderful sense of acomp I i shment ! 




As you progress you may find yourself lost on a certain 
subject. IMMEDIATELY refer to the FOLLOWING CHART to see 
which examples demonstrate the feature in question. Note 
that I refer to Example 5.1 as 1 since we all know this is 
Tutorial #5. When the chart says "others" this means that 
the other examples listed demonstrate the topic also, but 
not as wel I as those I Isted. Here then is : 



the: f^ol-low i mo chart 



TOPIC 



SEE EXAMPLES 



General Features of PMG 1,2,14 

Playfields (backgrounds) 2,4,8 

Color Selection & Pokes 5 

Memory Area for PMG 7 + others 

How to Draw a Player 6,7,14, others 

Missiles used as a Player 5,14 

Joystick or Paddle? 7 

Use of Sound with PMG 1,2,8 

Moving Players and Missiles 1,2,6,7,9 

Size of Players and Missiles 6,14 

Single/Double line Resolution 10 

How to Animate a Player 2,11,12 

Priority 2,12 

Collisions 2,12 

Two Players as one 13 

Comp I ete Game 2 

PMG using Strings 4,14 

Poke and Peek Table Appendix 



x<=*mf>i_e: s- i 




If you are new to the ATARI computer, watch this example 
many times and look at It later as each subject is 
mentioned. Here Is what you are seeing. First, the screen on 
your TV goes black, because I turned off the display 
processor, called ANTIC, accomplishing two things: 



1) Speeding up the machine by 30$, and 

2) Making the background of stars suddenly 
rather than seeing them slowly drawn out. 



appear, 



You can compare this to watching the background drawn out In 
the next program and choose which method to use. If you 
decide to turn off the screen display while YOUR backgrounds 
are drawn, here's how: 



At the point you want the screen to "turn off" 
100 0N=PEEK(559) :P0KE 559,0 



(PROGRAM CODE TO DRAW YOUR BACKGROUND) 



500 POKE 559, ON 




«H)p 



Later I'll teach you what the correct number for "ON" is, 
but you can always just save the old value as I did above. 
The number in memory location 559 will have to be changed 
later to allow PMG to work. 




PROCESSORS? 



^ 



<&> 



Yes, the ATARI does have two microprocessors. The ANTIC 
is a special one that is used to draw the screen on your TV 
or Monitor. It does both graphics and text. Whenever it is 
in use, it "steals cycles" from the main microprocessor, the 
6502. This is why the computer is faster when the screen is 
b I ank ( 559 = ) . . . . the main processor runs at full speed if it 
doesn't have to stop al I the time to al low the ANTIC time to 
draw the screen . 



Are you still in Program 5.1? Good, don't 
This is going to take time to explain properly. 



rush ahead 



The computer has a nice bunch of "stars" on the screen. 
Some are red and some blue. This is because when we plot 
single points in Graphics 8, the TV can only light up either 
a blue or a red pixel on the screen. If you look real close 
at your tube you will see these tiny pixels of red and blue. 
These background stars are called a PLAYFIELD when 
discussing PMG. If you look at the graphics chart on page 53 
in your BASIC manual, you'll see that most graphics modes 
allow from one to four colors. Modes 9 to 11 have more, but 
still only four of the colors pertain to the following 
discussion. 

When you enter color 1, and then draw out some shapes on 
the screen, you are drawing what is called PLAYFIELD 1. 
Likewise, if color 2 or 3 is allowed in the graphics mode 
you are using, these would be PLAYFIELD 2 or 3. The fourth 
playfield is actually color 0, the background color that you 
get when you start out in a graphics mode. Al I of these 
colors can be controlled. 



I usual ly set the border to the background playf Ield 
color so the whole screen appears the same. Notice how the 
stars don't actually go to the edge of the screen, but since 
the Players can move anywhere, having the border the same 
color makes the playfield seem larger. 



At last we have two Players on the screen. It has been a 
long winded discussion, but there they are. And, oh my! They 
move! Oh, you knew they could? Well, I guess there Is no 
suprising you. Notice how easily BASIC can move them 
HORIZONTALLY across the screen. Now look at the listing for 
this program. Notice 5 lines (400 to 440) control the sound 
and movement (You ARE going to study the code, aren't you?). 
Next, the Players grow in size. This capability also Is a 
simple POKE of a number, and will be explained later. 



Finally our space battle concludes with one ship firing 
missiles at another until they both are destroyed and the 
example is over. Run the example again until you are sure 
what the following mean: 




~ 



OUR COMF-LI 

EXAMPLE 



GAMI 



Rather than talk about some strange ideas like collision 
registers now, I thought you would like to see and play with 
the goal of this Tricky Tutorial, an actual game using all 
of the feature of PMG. Now before you begin, please realize 
that our goal did not include producing a game just like the 
arcades. Those are written in machine language with special 
display tubes to allow very fine graphics. We just want to 
Demonstrate all of the topics you will be learning later in 
one program. For the hot programmers in the audience, the 
game can be expanded to be quite a lot of fun. As it is now, 
it just fits in 16k which was required for our friends with 
ATARI 400"s (and there are a lot of you out there). 



The "rules" of the game are easily changed. In fact, 
the first thing you might do when you finish the complete 
lesson is to change the game to your own specifications. 
Most changes will be surprisingly simple. I'll offer some 
hints when the game is explained at the end of the Tutorial. 
Until then, here are my rules: 



MOW 



O 



■^lay -the: game 



Plug in joysticks into ports 1 and 2. Each Player moves 
his character and tries to score points. One point is scored 
tach time you "gobble" one of the two "Energizer Pellets" 
that will appear from time to time. Five points are scored 
if you gobble your opponent. This is done by first touchino 
the blue recharge zone in the center of the maze. Your 
character will change color and may score by touching the 
other Player. If the other Player touches the recharge zone, 
then he can get you and your color changes back to normal. 



started the scores out at three each just to point 
out that everything doesn't have to begin at zero. The logic 
to the game is to balance your moves between going for easy 
single pointers and the big score of five points! 



THfS GAME- Mr 

$a hot 



That's true, but think of this exciting fact. All of the 
basics techniques of real arcade games are included in this 
I i Tt I e game. The only improvements needed are your own Ideas 
and SPEED. Arcade games are written In machine language 
which accounts for the speed. The ideas are up to you! 

Notice the way the characters move. They are slow, yet I 
am moving them with machine language routines (these will be 
explained later). What slows them down Is the Basic language 
needed to call them. Also, notice what happens when the 
characters touch the walls of the maze. After you have a 
real idea of what features are in the game, run example 5.3 
and we'll begin the lesson. 



EXAMPLE 3. 3 
F>|_ A YF I ELDS 




This example Is so simple to understand that my daughter 
even helped me write It. The basic Idea I already mentioned 
above, but I'll repeat myself just this once (or twice). The 
stuff you see on the screen that is not a Player or Missile 
is called PLAYFIELD. Playfields are created by plotting 
points using the PLOT and DRAWTO commands, or by direct 
POKEing of data Into the memory area that is displayed on 
the screen. You should already be familiar with PLOT and 
DRAWTO from your BASIC manual. If not, read about them In 
the manual and then come back. 



PRESS 1 on your keyboard and plug in a joystick Into port 
#1 . Move the joystick around to draw color 1 on the screen. 

Now PRESS 2 and draw with color 2. PRESS 3 and do the same. 
Finally PRESS and draw with color 0. Notice that color 
seems to erase rather than draw, but I assure you It Is 
drawing. Think about It. Color draws with the background 
color so when It is plotted any other color, of course, it's 
changed (I know this was obvious to some of you). 



I wanted to show you the playfields. P I ay field is the 
background color; Playfield 1 is whatever Is drawn with 
color 1, etc. Page 53 of your Basic manual shows which 
Graphics modes allow which playfields. Although very simple, 
this example Is Important for you since you must know which 
playfield you are testing for when you use the collision 
registers discussed later. 
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A NOTE ON COLORS - 
Throughout all of these examples, If you don't like the 
colors being used, please change them to match your TV. I 
have several sets that all show the colors differently, so 
some of these examples may look strange to you. Here Is how 
to change the colors: 



The correct value to POKE Is: 
COLOR * 16 + LUMINANCE 



where color I s a to 15 and luminance Is from to 14, In 
even numbers. 

Look within any example you want to change until you find 
the correct number being POKEd and place your color choice 
In the POKE statement. 




fl PtfYFlELD 
EDITOR 



You probably know that any program, whether for a game or 
a business application, will need a background. The 
exception is a text-only program which would seldom need the 
use of PMG. 

Let's say you want a space game with mountains, enemy 
bases, a few ships on the ground to shoot at, and maybe even 
some trees. These need to be plotted on the screen before 
the game can begin. The normal method Is to use graph paper 
and hand calculate each point to be plotted. WOW! That Is 
the hard way! Feeling Inspired, I thought I would whip up a 
little editor to help you. Here's how to use it. 



NOTE 

Because this program requires 32K to run, it is the next 
to last program on the cassettes. For disk users, It is In 
the same order we have been discussing. 
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When done, the editor allows you save the shape two ways: 

To save the shapes for future use and modifications you 
may press "S" and then "T" or "D" for tape or disk. 
When done, the editor allows you save the shape two ways: 

To save the shapes for future use and modifications you 
may press "S" and then "T" or "D" for tape or disk. 

Tape users be sure and record the location on the tape 
where the program starts so that you may find the data 
again. Disk users will always find the data saved under the 
same name on the disk, PFDATA, so if you want to keep the 
shapes use the rename command, "E", FROM DOS, to name the 
data something more meaningful. 

To use the shapes in your program, you will need a 
simple subroutine. Look in the program code for this example 
to see a very sophisticated way to handle the data using 
strings. Go ahead and copy parts of it for your own use. 
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ts, must also be plotted, 
ur shape, just press SELECT and 
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The numbers of the DATA statements should be changed to 
fit wiThin your program. You may want trees to always start 
at 5000; buildings at 6000, etc. 
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Here Is a sample program to use with the Playfield Editor 



400 

410 

420 

430 

440 

500 

51 

600 

61 

700 

710 

800 

1000 

1010 

1020 

1030 

5000 

5010 

5020 

6000 
6010 
7000 
701 
7020 

7030 
7040 



GOSUB 1000 



TREE 
Y = 24: 
TRUNK 

Y=24:G0SUB 1000 
SUN AND RAYS 
Y=15: GOSUB 1000 



NE 



RETURN 



GRAPHICS 5 

SETC0L0R 0, 12, 4 

SETCOLUR 1,3,2 

SETCOLOR 2, 13, 12 

SETCOLOR 3, 8,6 

REM***DRAW THE 

COLOR 1 : X=50: 

REM***DRAW THE 

COLOR 2: X = 50 : 

REM***DRAW THE 

COLOR 3: X=30 : 

END 

REM***PL0T ROUTI 

FOR I = 1 TO 80 

READ A,B: IF A =999 THEN 

PLOT A+X,B+Y: NEXT I 

REM***DATA FOR TREE 

DATA 2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,8,9,7,9,6, 

9,5,9,4,9,3,9,2,9,1,9,0,9 
DATA -1,9,-2,9,-3,9,-4,9,-5, 9,-4, 8,-3,7,-2,6,-1, 

5,0,4, 1 ,3, 999, 999 
REM***DATA FOR TREE TRUNK 

DATA 2, 10, 3, 10, 2, 11, 3, 11, 2, 12, 3, 12, 99 9, 999 
REM***DATA FOR SUN AND RAYS 

DATA 0,0, 1,-1, 2, -2, 3, -3, 4, -4, 4, -5, 4, -6, 3, -7, 2, -8, 1,-9 
DATA 0,-1 0,-1, -10, -2, -10, -3, -9, -4, -8, -5, -7, -6, -6, 

-5,-6,-4,-5,-3,-4,-2,-3,-1,-2,0,-1,0 
DATA 3, 1,4, 2, 5, 3, 6, 4, 7, 5, 8, 6, 9, 7, 10, 8, 5, -1,6, 0,7, 1,8, 2 
DATA 6, -3, 7, -2, 8, -1,9,0, 10, 1,1 1,2, 12, 3, 13, 4, 6, -6, 7, -5, 

8,-4,9,-3,0,2,1,3,2,4,3,5,999,999 
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EXAMPLE 
COLOR) 



NOTE . 



Tape users may have this program cone on the screen 
looking very strange. Just press reset and type RUN to 
correct the screen 



piwis is Hovvvoy 

CHOOSE VOU 

CHARACTER. 
I COLOR. 




We talked about how to change the colors of the 
p I ay field (708 to 712) a few pages ago. The following 
allow you to pick the colors directly without 
the number to POKE. The POKEs listed, however, 
Player colors which live In different locations 
+ 711). The color value to place into any of the 
still uses the formula COLOR * 16 + LUMINANCE. 
s, the real purpose of this example is to 



ut I I i ty wl I 
ca I cu I at I ng 
are for the 
(704 to 707 
I ocat I ons 
Beyond th 



Introduce you to the Players and Missiles 



Look at the stripes of color 
half a Player. The bottom half 
can see the color Information. 



on the screen. Each one is 
is "turned off" so that you 




GOOD ARE STRIPES OF 




13 



Good question! The stripes are only being used to best show 
the colors of the Players as you change them (I'll tell you 
how in a moment). You can pick which of the eight pixels 
( I I Tt I e squares of color) across each stripe will be 
colored. In the next example we will select certain pixels 
and create a useful shape. For now the top half of each 
Player ana Missile is turned on (all 8 pixels colored) and 
the bottom half is turned off(all eight pixels POKEd with 
O's) . 



Are you wondering which Player is which? Player is on 
the far left and Player 3 Is on the right. On the far right 
Is the corresponding Missiles to 3 that work with each 
Player. I know that calling the first Player by "#0" Is 
confusing, but It is required by the ATARI hardware and 
software. Soon you'll see how to place these shapes 
anywhere on the screen you wish. 



How To Use This Example 



Plug a joystick Into port 1 . As soon as you move your 
Joystick an "*" will appear. Place the asterick over any of 
the Players. Hold the trigger button down and move the 
joystick up to Increase the color value, or down to decrease 
It. Notice that the numbers you POKE are the same for any 
given color. This means if you find a red that you like with 
a value of 45, you can POKE 45 Into any of the color 
registers from 704 to 712 and get red for that Player, 
Miss i I e, or PI ayf lei d. 

When you have one Player color Just like you want it, 
move the asterick to another Player and change It's color, 
too. After all four Players are done, you can set the 
background color by moving the asterick to the far right 
side and pressing the trigger. Notice how the background 
color changes the appearance of the player's colors. Now 
use these color values in POKE statements within your own 
programs . 

A few of you by now have tried to change the colors of 
the Missiles. We have not yet mentioned any color registers 
for the Missiles. That's because there aren't any! Each 
Missile takes on the color of the Player with the same 
number. Here is a review of the colors and registers: 



REGISTER 
*********** 



USED FOR 
*********** 



704 
705 
706 
707 
71 1 



Player 
Player 
Player 
P I ayer 
P I ayer 




1 

2 
3 
4 



and 
and 
and 
and 



Mlssl le 
Miss! I e 
Missile 
Mlssl I e 



(all Missiles together) 
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What? Player 4? Yes, you must know by now that the ATARI 
Is full of suprlses. It turns out that the Missiles can be 
combined together Into a 5th Player (#4). We will come back 
to how this Is done later. For now, press SELECT. The 
Missiles will now come together and take on the color POKEd 
Into 711. To use the Color Editor on Player 4, just move 
the asterlck to It and use the trigger. Pressing SELECT 
again would toggle the 5th Player back to Missiles. This 
would be a good utility to use whenever you need to choose a 
co I or . 



r TM£ DIFFERENCE PETWEfM A 
PLOTTED SMAPE AND A PLAYER 
MISSILE IS ASTONISHING;^ 




WHICH IS 



F'L-^YER'P 



Run the next example, (5.6), and look two of my Robot 
Prototype's cousins on your screen. Your mission, If you 
choose to accept It, Is to figure out which Is a Player and 
which Is plotted, le., drawn on a Playfleld. Really try hard 
to see the difference 




To solve this "Great Mystery" use a joystick In Port 1 
to move each shape. The Player moves WITHOUT PRESSING the 
TRIGGER. The playfield shape moves by PRESSING the TRIGGER. 

I have to admit that I cheated in this example. The 

Player Is being moved with a small machine language utility. 

However, you will soon see that even BASIC can move a Player 

pretty fast vertically and Immediately horizontally. 



An interesting experiment to do with this example Is to 
change the color In the program of the Player (find a POKE 
704, with a number after it) and then move the Player exactly 
on top of the plotted shape. If you move two plotted shapes 
over each other, and then move them away, you wil I have to 
redraw them both to remove the holes left in their shapes! 
The effect Is even better If you break the program and 
change the color of one of the Robots. Aren't Players 
great? 



XAMPLI 



- ~r 



CREATING 



Press OPTION to get to the next examp 
begin the technical part of this Tutorial 



i=-i_aye:rs 

, 5.7. 



This will 



First of all, notice that the last picture is still on 
the screen. Do you know how this happened? It's very simple. 
With playflelds, when you plot a background on the screen 
they stay on until erased with either new plotted data, or 
usually just another Graphics call. You loaded in the next 
program while a playfield — the Robot — was still on the 
screen, so It Is still there when this example starts to 
run. This process Is similar to adding 32 to a graphics call 
as explained In the BASIC manual. 



with one program and 
gram load in separately. 



You can create your backgrounds 
then have the main loop of your 

This allows large programs to fit' into smaller memory sizes. 
Players will stay on the screen, too. 



Agai n, plug In 
Joyst ick #1 . You can 
move the shape on the 
screen in all directions, 
I nc I ud I ng d i agona My. 
This routine is very 
important to you since it 
will teach all of the 
following basics: 




MPORTANT STUFF TO LEARN 
FROM THIS EXAMPLE 




1) How to create a Player shape 

2) How to move that shape up and down (vertically) 



3) How to move It sideways (horizontally) 



Th 
just 
on your 



s example can be copied Into ANY program 
modified In a few places to get a Player 
own design of a game or other application 



you want and 
mov I ng around 



be saved to 
ut i I I ty for 

10 

20 

30 

40 

50 

6U 

70 

80 

85 

90 

100 

1 10 

120 

130 

140 

150 

160 



a separate 
D i sk users 



Tape or Disk and even 



It 
renamed 



shou I d 
as a 



140 



MAIN LOOP ********** 



GOTO 
REM 

REM ****** 

REM 

ct. c t I pK ( n ) 

X=X+(ST=6)+(ST=7)+(ST=5)-(ST=9)-(ST=10)-(ST=11 ) 

Y=Y+(ST=13)+(ST=9)+(ST=5)-(ST=6)-(ST=10)-(ST=14) 

G0SUB 330 

POKE 764, 12:RUN "D:EX5 
1 10 



THEN 
THEN 



MISSI LE BASE 
PER PAGE) 



ADDRESS IN PAGES 



IF PEEK(532/9)=3 
IF PADDLE(0)=228 

X=PADDLE(0) 

POKE 53248, X 

GOTO 50 

REM 

REM PMB=PLAYER 

REM (256 BYTES 

POKE 704,40 

The example starts out skipping to line 140 
standard setups that will always be required, 
should recognize as setting the color of Player 
will use for the shape (Spaceship?). Line 170 
I ike this: 



8" 



to do some 

L i ne 1 60 you 

0, which we 

to 190 look 



170 PMB=PEEK(106)-16 
180 POKE 54279, PMB 
190 PMBASE=PMB*256 



These lines reserve space In memory for Player and Missile 

shapes to be stored. This topic alone could take pages to 

explain, but I will give you only enough information to make 
I t work . 
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re created on the ATARI 
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on" the DMA, the comput 
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on the screen. They wll 
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Their size In the Y 
s. First Is how many plx 
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Ize In the X 
e registers 
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be created 
en as either 
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WOW.. . I »M Tired 



That was a lot! There's even more to come, 
break If you need to 



so take a 




Back to lines 170 to 190. Line 170 takes 
location 106, which Is the location of 
memory (given In number of 256 bytes pages), and 
certain amount of pages. This number Is then 
54279. That will tell the computer where the 
starts. Finally, line 190 takes PMB In number of 
converts the value to a regular memory location, 
will use this number a lot. The number 
will change depending on the Graphics 



the value In 

the top of user 

subtracts a 

POKEd Into 

Player data 

pages and 

PMBASE. We % 

I subtracted, 16-, 

mode you are using. 



Choosing the amount to subtract Is explained In EX5.9. 
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210 X=125:Y=100:YSAVE=100 
220 POKE 53256,0 

Next, in line 200, we POKE 53277 with a 3. This memory 
location Is called GRACTL. Poke It with a 1 for Missiles 
only. Poke with a 3 for Players and Missiles. 

In line 210 are the Initial X and Y positions where you 
want the Player on the screen. In 220, the size of Player 
is set to normal, which Is 0. If you had just turned on the 
machine, 53256 would have contained anyway, but since we 
are running many programs one after another, this made sure 
the value was correct. The choices you have for the size 
are : 

Poke With For 

*********** ******* 

Norma I size 

1 Doub I e size 

3 Quadruple size 

Here are the registers available for controlling 
Player/Missile size. POKE wth the appropriate values from 
the prev I ous tab I e. 

RESISTER PARAMETER 

******** ********* 

53256 size, Player 

53257 size, Player 1 

53258 size, Player 2 

53259 size, Player 3 

53260 size of all mi ss I es 



To determine Missile size, you'll have to do a little 
calculating, but nothing too complicated. Just pick the 
desired size for each Missile from the chart below, then add 
up the numbers for all four (or however many you're using) 
and POKE the total Into memory location 53260. 

For example, if you want a normal Missile 0, a double 
Missile 1, a quadruple Missile 2, and a double Missile 3, 
you would POKE 0+4+48+64=116. 

MISSILE # NORMAL DOUBLE QUAD 
******** ****** ****** **** 

13 

1 4 12 



**** 


1 

4 
16 
64 



2 16 48 

3 6 4 192 



1 9 



230 FOR I =PMBASE+1024 TO PMBASE+1 2 80 : POKE I.O:NEXT I 



Line 230 POKEs O's into the area where the data for the 
Player must go. This will act to clear out the Players 
stripe first. This may not seem necessary to you. For this 
reason, some of the later examples will actually erase their 
Player areas while you are watching. You will see the junk 
being erased. This statement takes a few seconds to do, and 
thus delays the beginning of any program that uses it. The 
best way to speed It up is to put it at the very front of 
your programs. This is demonstrated in later examples. For 
this example we only had to clear out memory between 
Pmbase+1024 and Pmbase+1280. Why? To explain we need a chart 
of what memory looks like: 



PEEK( 1 06 )_ 



Pmbase+2048. 

Pmbase+1792. 

Pmbase+1536. 

Pmbase+1280. 

Pmbase+1024 

Pmbase+768 



SINGLE LINE RESOLUTION 
Top of Memory 



Pmbase 

(POKE into 
54279) 



Screen Data Area 
Depends on Graphics Mode 



UNUSED 



PI ayer 3 



Player 2 



Player 1 



Player 



M3 



M2 



M1 



MO 



768 Unused 
Memory Locat ions 



The Rest of Memory 
and Your Program 



694 to 8112 Memory 
Locat Ions 



8 b i ts wide - 
Each bit lights up 
one TV pixel. 



} 



2 bits wide each 
Missile or use 
all 4 as a P I ayer 



Look at the chart above marked Sing 
Starting at the place marked top of 
a certain number of pages subtracted 
This places us at the BOTTOM of the 
was done in lines 170 to 190. Again, 
will be explained in EX5.9. 



L i ne Reso I ut i on . 
memory, we move down by 
from the value in 106. 
chart. This calculation 
the amount to subtract 
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Pmba 
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then 
co I o 

non 

you 

at 

top 

Pmba 

sere 

ha pp 
be 

sere 
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Now 
se + 1 

hoi 

nd i 

th 

r va 

To m 

b 
p I ac 

Pmb 
of t 
se + 
en . 
Cont 
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en 
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that we have placed Pmbase, go back 
024. The next 256 bytes of memor 
ds Player 0. If any of these bytes o 
f the setup POKEs have been made to 
ose non bytes will I ight up on the 
I ues stored in 704 . 

ove the shape up or down the screen, 
ytes up or down the stripe of memory 
e Pmbase at 30000 in your memory. An 
ase+1030(30000+1030, or 31030) will 
he screen and if those same numbers 
1200, they will appear near t 

inuing with this logic should make 
if you POKE numbers into Pmbase+ 140 
ning on a shape in Player 1 that wou 
if the "setup POKEs" were done, 
ng the setup procedure. 



up in memory to 

y are the str i pe 

f memory are not 

turn on DMA, 

screen with the 

you just POKE 
. Let ' s say that 
y non bytes 

appear near the 
are POKEd into 
he bottom of the 

It clear what 
. You wou I d now 
Id appear on the 



Let's 



finish 



Lines 240 to 300 POKE the shape into memory, just as we 
were talking about above. Understanding lines 250 to 300 
will be a real key for you. Here is what they look like: 



240 
250 



280 
290 
300 



PMBASE+1280 



RESTORE 210:CNT=0 

FOR l=PMBASE+1024+Y TO 
260 .READ B: IF B = THEN 310 
27U CNT=CNT+1 

POKE l,B 

NEXT I 

DATA 8, 60, 1 26, 1 95. 126, 60, 24, 126, 165, 0,0 



The shape is poked into memory with an offset of "Y". This 
says to place the shape Y units down the screen. If Y=0 then 
the shape will be at the top of the screen. A value of Y=252 
puts the shape at the very bottom since the shape has eight 
numbers that must fit Into the 256 byte long stripe of 
memory. In a few lines we will simply calculate where we 
want the shape on the screen and use this routine to POKE it 
i nto the right pi ace . 
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The last major hurdle is the way the data Is calculated. 
Here Is another figure to help you visualize the shape: 

PLAYER 



Pmbase+1024 



256 
Number 
Stripe 



Pmbase+1024+Y 




4+8+16=28 
2+4+8+16+32=62 
1+2+4+16+32+64=119 
1 +2+4+8+ 1 6+32+64= 1 27 
2+4+8+16+32+64=126 
4+8+16+32+64=124 
8+16+32+64=120 
4+8+16+32+64=124 
2+4+8+1 6+32+64= 126 
1+2+4+8+16+32+64=127 
2+4+8+16+32+64=126 
2+4+8+16+32=62 
- 4+8+16=28 



Bottom of TV screen 



Add 16 
Add 32 

Add 64 
Add 128 



This Shape 
Has 13 Numbers 



To create your own shape, you just fill In the boxes 
you want for the shape. Then to get the "TOTAL", you just go 
across each row and add up the value for any box that is 
filled in. When you poke these numbers Into memory, your 
shape appears on the screen! 



Back to the program code. Line 310 is what finally turns 
on the player. The correct value here Is obtained by adding 
up the options you want from the following: 

FOR ADD 

******************************************* 



DMACTL (559) 



Wide pi ayf ie Id 

Standard P I ayf I e I d 

Narrow P I ay f I e I d 

Turn on Missile DMA 

Turn on Player DMA 

Double Line Resolution . 
Single L I ne Reso I ut I on . 
Turn on Main DMA 
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2Choose 1 Only 

1 

4 

8 



16Choose 1 Only 

32 



In this case we want Standard playfleld (2) + Missile 
(4) and Player (8) DMA plus the Main DMA (32) and Single 
line Resolution (16) for a total of 2+4+8+32+16=62. This Is 
why we poke 559,62. 

That ends the Setup 



You should be able to use this same setup code for most 
PMG programs you do. Just make the few changes required by 
things like resolution and playfield size. Note - single and 
double line resolution will be discussed In example 5.10 



com I ng up soon . 



The program now branches to the main program loop at 
line 50, which reads joystick 0. Lines 60 and 70 Increment X 
& Y from their Initial positions set in line 210. The only 
thing left for the program to do Is move In the X and Y 
directions. The X direction is easy. The ATARI has built in 
position registers for the X direction. In line 110 we just 
poke the new X value Into that memory location, 53248. 

Here are the X direction registers 

REGISTER # MISSILE/PLAYER 
********** ************** 

53248 P0 

53249 P1 

53250 P2 

53251 P3 

53252 M0 

53253 Ml 

53254 M2 

53255 M3 

To move In the Y direction we have to do something similar 
to the way the playfield Robot was moved In EX5.6. 
Fortunately, we don't have to move as many bytes of memory 
around. That robot had almost 200 data points! Moving our 
player Is as simple as poking in eight numbers Into memory. 

POKE 559,62 

GOTO 50 

REM 

REM ***** UP/DOWN MOVE ******* 

IF YSAVE=Y THEN RETURN 

IF YSAVE<Y THEN 430 

RESTORE 210 

FOR 1=1 TO CNT 

READ B 

POKE PMBASE+1024+Y+I,B 
NEXT I 

YSAVE=Y:P0KE PMBASE+1 024 +Y+CNT+1 , : RETURN 
RESTORE 210 
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That 


Is as 


310 


320 


330 


340 


350 


360 


370 


380 


390 


400 


410 


420 


430 



Look at 
current 



440 FOR 1=1 TO CNT 

450 READ B 

460 POKE PMBASE+1024+Y+I-1 ,B 

470 NEXT I 

480 YSAVE=Y:P0KE PMBASE+1 024+Y-1 , : RETURN 

lines 340 to 480. First, In 350, 
value of Y to the last, 



I compare the 



If It Is the same, we don't 
waste our time and just return. Line 360 says, "If Y Is now 
bigger than last time, go to the move up In memory routine 
at 430, otherwise move down". Remember, as Y Increases In 
memory, the shape appears to go down the screen. This comes 
from the way the ATARI does It's coordinate system and Is 
explained on page 47 of your Basic manual. 



Both the routine to move up, and the one to move down, 
are similar to the original one we used to POKE the shape 
Into memory. All we are doing Is POKEIng the same shape down 
or up by one byte In memory. 




IMOW WE ARE GETTING HOT! 
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I MF>OR-r*=klMT" POINT! 

When you move the shape you repoke 7 of the 8 numbers 
that are currently in memory and poke in one number in a new 

location. That last number Is not changed because you have 
moved by one byte. That is why the is poked into that 
remaining location in line 420 or 480. Were the omitted, a 
trail of unchanged bytes would be left on the screen, 

leaving something like this: 



DOWN 





MoWMG 
UP 



If you are lost by all this there is only one way to figure 
it out. Stop the lesson now, break the program, and start/ 
making small changes to where and what numbers are poked 
into memory. Soon you will say to yourself, "That's what The 
(old/not so old) PROFESSOR was trying to say! 



THAT'S IT? 



You now have most ot the basics to place a player on the 
screen and move It around. The earlier p I ay field editor 
discussed how to create the background for your program. Now 
all we need are the small details that tie all of this 
together . 





HEY! WHAT ABOUT THE PADDLES? 



Oh yes, I forgot to tell you why the move in the X 
direction was so slow. The joysticks we are using, combined 
with the program code, only allow X to change by one value 
at a time. Paddles, on the other hand, can instantly change 
the value they return from to 228. Plug in a paddle 
controller, If you have one, and now try moving the shape 
across the screen. It will be instantaneous! 
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XAMPLI 



5. O 



This simple example takes the same basic routine as in 5.7, 

but starts to make it look like a game. Finish it if you'd 

like, it's good practice. There are three things you should 
learn from this example. 

First, notice the stripe of randomly flickering "junk" 
on the screen when the program first starts. This Is caused 
by only partly turning on the DMA as discussed above. As 
soon as all the setup is complete, the exact shape appears. 

Second, look at the program list and see the way the program 

is structured. When you write your own codes, I suggest you 

do something like this. The program just goes to several 
subrout i nes that : 



1 ) 
2) 
3) 

4) 



Draw the mountains 
Draw the stars 

Set up Player as shown in the 
Main loop routine for the 



scoring 



utility above 
movement and/or 



Notice that I use sound in the loop. It's easy to do if 
you spend a little time in practice. This simple 
structuring is used in many arcade-style games. 



Third, I'll show 
utilities within the 



you one of the two machine language 
program. Both are short and can easily 
to you own programs. This one is used to 
0. It will read Joystick and move the 
Player stripe accordingly. You must use 
ution Players, as we have been doing so 
(That means the shape is at PMBASE +1024 to PMBASE 
Copy the needed lines to a separate file using the 
command. Then you could enter it as needed. Don't 
forget to delete the other lines of the program first. The 
lines you need to keep are just 40,90, and 130. 



be 

move 

data 

single 

f ar . 

+1279) 

LI ST 



transferred 
only PI ayer 

i n the 
e line reso 



Heres the routine: 

.4© f)IM ES C60J 

•g. o ie $ c ± , & & ■» = • ■ h h h ...» h[d *>m wMSF'wssannssh j 

168 A = U5R C if'* l!> R IE$J „ STICK (OS :» _ . 
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EXAMPLE 5-«^ 
A QOOF-UP ! 



XF YOU LOCATE V0UI5 PATA POO&M, 
ALL KINDS OFTMINSS CANG0WE0H&., 







When you run this example notice our old friend the 



Robot. 



He's back! However, as you move him around (using 



the same machine language routine 
there's some 'junk' on the screen. 



as the last example), 



The time has come, my friend, to explain how to position 
the P I ayer/M i ss i I e data area within memory. Look at the 
program listing for example 5.9. Do you remember how we 
obtained the value for PMBASE? It worked like this: 

100 PMBASE = (PEEKC 106)-16)*256 



"> 



On pag 
show I ng t 
mode. As 
the P I ayer 
screen . E 
That is wh 

When t 
Operat I ng 
examp I e, I o 
I anguage 
understand 
unt i I it 
s i deways . 
will a I so 



e 45 of the BAS 
he amount of RAM 
the next figure 
s and Missiles o 
ven worse wou I d 
at happened to t 
hey reran the 

System fixed 
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the term 'wrapa 
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The data that I 
' wraparoun d ' . 
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In example 5.5, when I explained the method, I said that 
the number 16 changes depending on your program. Let's 

discuss why. The listing you are looking at will only use 
16 as the memory amount to subtract because the Graphics 
mode being used requires IK or less of memory. As another 
example, 5.8 POKEs memory back 40 pages because Graphics 8 
requires more memory. 

Here's a drawing to help our discussion: 




OOP'S WRONG DRAWING 



CONFLICTS 
Between 
PLAYER MISSILE DATA AREA 
and 
SCREEN DATA AREA?? 



SCREEN DATA AREA 
256 to 8112 
bytes 



PLAYER DATA AREA 
Ik or 2k 





====> Junk on Screen 



Remainder 
of Memor y 
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The easy way 
use the following 
a "IK boundary." 
pages, or 16, 24, 



to avoid putting Player data where it doesn't belong is to 
chart. Single line resolution players always must start on 
This simply means subtract from the value in 106 
32, etc. Remember, a PAGE is 256 bytes (1/4K). 



discuss double line resolution players (soon, soon), you must start 
on a IK boundary, so subtract 4, 8, 12, 16, etc. 



either 8 

When we 

the data 



GRAPHICS MODE 


APPROX. # MEMORY LOCATIONS USED 


SUBTRACT THIS # 
FROM LOCATION 106 





992 


16 ( 8 ) 


1 


674 


16 ( 8 > 


2 


424 


16 ( 8 ) 


3 


434 


16 ( 8 ) 


4 


694 


16 ( 8 ) 


5 


1174 


16 < 8 ) 


6 


2174 


16 < 12 ) 


7 


4190 


24 ( 20 ) 


8 


8112 


40 ( 36 ) 


9 


8112 


40 ( 36 ) 


10 


8112 


40 ( 36 ) 


11 


8112 


40 ( 36 ) 



A BIRD 

IT'S A f=*l_ANE: 

IT'S- - - E>OU 



RESOLUT 



INE 
ION 



X**MF>I_I 



=5- J.O 



This simple example Introduces you to the SQUIGILY 
MONSTER. It will show Itself In two sizes. The smaller size 
Is called single line resolution. This Is the way we have 
previously set up our Players. Simply put, each number In 
the data area for the Player Is placed on the screen as one 
line also. The data area has 256 bytes available, which as 
you saw in the Color Changing example, more than covers the 
screen. If you look closely at the screen you can see the 
individual pixels. 



The other way you can set up your Players 
is called double line resolution. This uses 
per Player; meaning, to fill the screen, the 
place TWO lines on the screen for each number 
area. This makes the shape appear thicker. 



and M I ss I I es 

only 128 bytes 

computer will 

in Its data 



Press the SELECT button for the single line 
the START button for double line. 



P I ayer and 
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Double line Players are set up similar to single line, 
but with these differences: , 



1) Instead of adding 16 to the total value to POKE Into 
559, add (see previous chart). This tells the computer 
where +o look for the data for each Player and Missile. This 
example switches between the two resolutions with just this 
one POKE. 



2) Instead of POKEIng the shape of the Players Into 
PMBASE+768 to PMBASE +2048 as the above figure showed, you 
place the data Into PMBASE+384 to PMBASE+1024. This means 
that we have to look at ANOTHER FIGURE: 

DOUBLE LINE RESOLUTION 



Peek (106)' 



Top o-f Memory 



Pmbase+1024 » 

Pmbase+896 ►" 

Pmbase+768 » 
Probase+640 » 
Pmbase+512 * 
Pmbase+3S4 * 



Pmbase 1 

(Poke into 54279) 



Screen Data Area 
Depends on Graphics Mode 



Unused 



Player 3 



PI ayer 



Player 1 



Player 



M3 



m: 



Ml 



MO 



384 Unused 
Memory Locations 



The Rest o-f Memory 
and Your Program- 



694 to 8112 Memory 
Locations 



8 bits wide - 

Each bit lights 

up two TV pixels. 



2 bits wide each 
Missile, or use 
all 4 as a Player, 



The decision on which resolution to use depends on how 
small you want the pixels to be In your figure and how much 
memory you can afford to use for the shape data. I have 
given you several of each type In these examples, so It's up 
to you . Have fun ! 
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There isn't too much more to learn before we can discuss the 
game. Next, we'll animate the little Pacman(tm) type shape 
(note: we refer to a general type of shape and are not trying to 
Infringe on others rights, end of legal talk). Run example 5.11. 
You'll see the memory area for the shape cleared out, then the 
shape appears. It doesn't look much like a Pacman(tm)? No mouth? 
Push the joystick! 

The shape looks better now that it is moving. I could have 
used three or four shapes to open and close the mouth, but two 
shapes is simple to explain. If you add another shape with the 
mouth just slightly open, you'll see smoother action. To see the 
two shapes as they change, just give a series of quick pushes on 
the stick. What you are seeing is two Players, but only one at a 
time. Let's see how this is done. 



10 FOR 1=1 TO 8:P0KE 53247+ I , : NEXT l:G0T0 240 

20 FOR l=PMBASE+1024 TO PMBASE+1 7 92 : POKE l,0:NEXT l:RETURN 

30 REM *****PLAYER SETUP ***** 

40 GRAPHICS 7:D=20 :E=50:POKE 710,0:POKE 712,0:P0KE 704,41: 

POKE 706,41 :P0KE 559,62 
45 COLOR 2:PL0T 1,57:DRAWT0 159,57:PL0T 1,65:DRAWT0 159,65 
50 A=PEEK( 106)-32:P0KE 54279, A:P0KE 204,A+4:P0KE 203,0: 

PMBASE=A*256 
60 POKE 53277, 3:X=1 50:POKE 205, 120:P0KE 53256, 0:P0KE 53250,150 

POKE 53258,0 
70 G0SUB 20 
80 RESTORE 1 1 : Y=1 50 
90 FOR l=PMBASE+1024+Y TO PMBASE+1 209 : READ B:IF B<>0 THEN 



POKE l,B:NEXT I 
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100 
1 10 
120 
130 

140 
150 
160 
170 
1 ttu 
190 
210 
220 
222 
225 
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280 
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300 
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226 
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REM ***** DATA FOR PACMAN1 ***** 

RESTORE' ?56 119 ' 127 ' 254 ' 252 ' 248 ' 252 ' 254 ' 127 ' 126 ' 62 ' 28 ' ' 
FOR l=PMBASE+1536+Y TO PMBASE+1 7 92 : READ Bs IF B<>0 THEN 
POKE l,B:NEXT I 
REM ***** DATA FOR PACMAN2 ****** 

DATA 28, 62,11 8,255,255,255,255,255, 126,126,62,28,0,0,0,0 

POKE 559,62 

REM 

REM ******MAIN LOOP ****** 

REM 

ST=STICK(0) :S=PEEK( 53 27 9) 

IF S=3 THEN POKE 764,12:RUN "D:EX5.12" 

IF ST=15 THEN 210 

X=X+(ST=7)-(ST=11 ) :P0KE 53248, X:POKE 53250, 0:F0R J=1 TO 50 

NEXT J 

POKE 53250, X:P0KE 53248,0 

GOTO 210 

GRAPHICS 17:P0KE 712,69:P0KE 710,19 



? 
? 
1 
? 
1 
? 
? 



#6 
#6 
#6 
#6 
#6 
#6 
#6 



"ANIMATION OF SHAPES 
" IS AS SIMPLE AS 
"SWITCHING BETWEEN 
" TWO PLAYERS AS YOU 

"MOVE AROUND use 

"YOUR JOYSTICK TO SEE" 
"THE pacman(TM) MOVE!" 



I :GOTO 40 



FOR 1=1 TO 3000:NEXT 

POKE 764,255 

ook at the program code for 

e memory setback Is 32, not 

using Graphics mode 7. In 

orizontal location and size 

have to use the Players In 
just POKE In the data for 
for PI ayer 2. In I I ne 225, 
and Player 2 at 0, which Is 

Player Is moved off screen 

is a delay on line 225 to 
apes . 



example 5.11. Notice In line 
16. This is the amount required 
line 60 POKEs, are made to both 
of Player 2. Yes, Player 2! You 
any particular order. Lines 120 
a second shape Into the correct 

POKEs are made to place Player 

off screen. Finally, at line 

and Player 2 is placed at X. 

allow you to see the "switching" 



Does that seem hard? All you have to do to create additional 
Players Is: 

1) Poke Into the correct memory area the data for their 
shape 

2) Poke the size you want Into the size location in memory 
(opt I ona I , s I nee is a default If you forget) 

3) Poke the horizontal location (X) Into the horizontal 
memory location. 

4) Have fun I 
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To animate a shape, just alternate two or more shapes at the 
same spot on the screen. The different shapes will seem to 
blend Into a single, animated shape! 

A note on animation Is In order. Remember the Robot 
example where I asked "Which Is the Player?". I hope you can 
now see the power of using Players for your shapes. To plot 
and erase this shape from BASIC would be very, very slow! 



PRIORITY AND 
EXAMPLE 



COLL I S I ONS 
5. ±2 




COLIWMZ 




PRIOftfTV 



These two topics were saved for last. They're not 
difficult subjects, I just wanted you to get a lot of 
experience first with the basics. Example 5.12 takes the 
beginnings of a game that we did In example 5.11, and adds 
collision with some energy pellets in order to allow the 
creature to "eat" the pellets. When It crosses over the 
"walls" in the tunnel, the shape will seem to be in front of 
the walls. At the end of the tunnel, the shape will be 
Inside, or behind the wall because I set the priorities so 
some colors act differently than others. Here's how I did 
It! 



Most of this program is the same as the other examples. 
One of the nicest things about using Players ana Missiles Is 
writing a program, and then making only slight changes to 
use It for a completely different purpose. 



Line 10 POKEs all of the horizontal location registers 
to 0. This Is not used in this program, but makes sure that 
all previous Players are off screen. Remember, just because 
we loaded In a new program, doesn't mean that old Players 
will disappear. They stay there until removed! This can be 
useful in programs that have multiple parts to them. 
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10 FOR 1=1 TO 8:P0KE 53247+ I , : NEXT l:GOTO 270 

20 FOR l=PMBASE+1024 TO PMBASE+1 536 : POKE l,0:NEXT IsRETURN 

30 REM *****PLAYER SETUP ***** 

40 GRAPHICS 7:P0KE 710,0:P0KE 712,69:P0KE 704,41 :POKE 706, 4Tr 

POKE 559,62 

45 POKE 708,103:POKE 752,1:P0KE 709,139:POKE 710,100 

47 COLOR 1:F0R X=20 TO 150 STEP 30:PLOT X,61:PL0T X+1,61:NEXT X 

50 COLOR 2:PL0T 1,57:DRAWT0 1 59, 57 : DRAWTO 1 59, 66 : DRAWTO 1,66: 

DRAWTO 1,57 

52 PLOT 157,57:DRAWT0 157,66:PL0T 1 58, 57 : DRAWTO 158,66 

55 COLOR 3:F0R J=1 TO 4:F0R K=1 TO 5 

56 T=K+J*30 

57 PLOT T,57:DRAWT0 T,66:NEXT K:NEXT J 
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60 A=PEEK(106)-32:POKE 54279, A:P0KE 204,A+4:POKE 203, : PMBASE=A*256 

70 POKE 53277, 3:X=50:POKE 205,120:P0KE 53256, 0:POKE 53250,150 

80 G0SUB 20 

90 RESTORE 120:Y=150:ERAX=-10 

100 FOR l=PMBASE+1024+Y TO PMBASE+1 280 : READ B:IF B=999 THEN 110 

105 POKE l,B:NEXT I 

110 REM ***** DATA FOR PACMAN1 ***** 

120 DATA 28,62,119,127,254,252,248,252,254,127,126,62,28,999 

130 RESTORE 160 

140 FOR l=PMBASt+1536+Y TO PMBASE+1 7 92 : READ B : I F B=999 THEN 150 

145 POKE l,B:NEXT I 

150 REM ***** DATA FOR PACMAN2 ****** 

160 DATA 28,62,118,255,255,255,255,255,126,126,62,28,999 

17U POKE 559,62 

1 80 REM 

1 yu REM ******MAIN LOOP ****** 

200 REM 

205 POKE 532/8,1 :REM CLEAR ALL COLLISION LOCATIONS(SO THEY HOLD 0'S) 

220 ST=STICK(0) : S=PEEK ( 5327 9 ) 

230 IF S=3 THEN POKE 764,12:RUN "D:EX5.13" 

240 X=X+(ST=7)-(ST=1 1 ) :P0KE 53248, X:P0KE 53250, 0:F0R J=1 TO 50: 

NEXT J 
242 IF PEEK(53252) <>0 THEN GOSUB 1000:GOTO 220 
245 IF X>220 THEN X=40 
250 POKE 53250, X:P0KE 53248,0 
260 GOTO 220 
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In line 205, we learn a new trick. To go with those 
Collision Registers, there Is this location, called HITCLR, 
It does just what it's name Implies... When you 
1, it will clear the other Collision 
read 0. If this Isn't done, then 
occurred, the approplate collision 
and stay that way. You'll see all 
a moment. Here's a list of all the 



at 53278. 
POKE It 
I ocat I ons 
after a 



with a 
so that they 

co I I I s i on 
register would be set 
th i s in action I n 



collision registers: 



Memory Location 
******************* 



Type of co I I I s I on 
************* 



53248 
53249 
53250 
53251 



MIssI I e 





to 


Playf leld 


Missl I e 


1 


to 


Playf leld 


MIssI I e 


2 


to 


Playf leld 


MIssi le 


3 


to 


PI ayf leld 



53252 
53253 
53254 
53255 



PI ayer to P I ayf I e I d 

Player 1 to P I ayf leld 

Player 2 to P I ayf ield 

Player 3 to P I ayf leld 



53256 
53257 
53258 
53259 



Mi ss I I e to PI ayer 
Miss I I e 1 to PI ayer 
MI ss I I e 2 to PI ayer 
Miss I I e 3 to PI ayer 



53260 
53261 
53262 
53263 
53278 



P I ayer to P I ayer 
P I ayer 1 to P I ayer 
Player 2 to Player 
P I ayer 3 to P I ayer 
Clear all collision registers 



That's a lot! They are really easy to use, however, so 
stay wlTh me. You simply PEEK at the location that starts 
wlTn the object you are concerned with. In this example, we 
want to know if the shape, Player 0, has collided with the 
P I ayf leld. That means we will look at the value In 53252. 
This is done in line 242. If It Isn't then some kind of a 
collision has occurred and we branch to the subroutine at 
I ine 1000. 



270 
2 80 
290 
300 
310 
320 
330 
340 
350 
360 
365 
370 



GRAPHICS 17:P0KE 712,245 
NOW WE ADD CHECKING 
FOR COLL I S IONS WITH 
THE WALLS AND ALSO 
PRIURITY WITH THE 

OTHER SHAPES use 

YOUR JOYSTICK TO SEE 
THE pacman(TM) MOVE 
IN AND OUT OF THE 



? 
? 
? 
? 
? 
? 
? 
? 
? 

FOR 
GOTO 



#6 
#6 
#6 
#6 
#6 
#6 
#6 
#6 
#6 



1=1 
30 



TUNNEL 
TO 2000 



SHAPES 
NEXT I 
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1000 REM **** COLLISION SOUND **** 

1002 C0L=PEEK(53252) 

1004 IF C0L=2 THEN 1015 

1005 IF C0LO1 THEN 1030 

1006 ? "YUMMY! !": ? :? 

1007 FOR 1=200 TO STEP -1:SOUND 0, I , 1 , 8 : NEXT I:? :? :? 

1008 COLOR 0:ERAX=ERAX+30:PLOT ERAX,61:PL0T ERAX+1,61 

1009 X=X+8:POKE 53248, X:POKE 53250, X 

1010 GOTO 1030 

101 5 SOUND 0,50, 8, 8 

1020 FOR 1=1 TO 30:NEXT l:SOUND 0,0,0,0 

1030 POKE 53278, 1 : RETURN 

From 1000 to 1005, we test to see what is in the 
Collision register. We already know it Isn't a zero -- 
that's how we got this far. If it's a 2 then we know the 
Player "hit" (overlapped) Playfield 2, which is the walls of 
the tunnel. We then make a collision sound and go to line 
1030 which is ALWAYS REQUIRED to reset all collisions 
registers to hold 0's. If it is a 1, we ran into Playfield 
1, which in our program is the "energy pellets", so the 
message "Yummy" Is printed and an approplate sound is made. 
These lines also POKE HITCLR (53278) and return. 

Does all that make sense to you? 

Let me repeat the basic way to use collisions: Find the 
Collision register that deals with the two Items you are 
concerned with, either a Missile #_ or a Player #_ on the 
left side and a Player, Missile, or Playfield number on the 
right. Read the value in that register by using the PEEK 
command. The number that results will be either 0, 1, 2, or 
3. If it is 0, it means you collided with yourself which is 
meaningless. If it is a 1, you collided with Playfield 1, 
Player 1 , or Missile 1 depending on the register you are 
using. If a 2, it means you collided with PF 2, PLAYER 2, or 
Missile 2. A 3 means a collision with PF3, Player 3, or 
Missile 3. You can then branch to do whatever kind of noise 
or graphics you want. 

I have one last trick In this example. Line 245 allows 
the character to wraparound in the X direction. It just 
tests for a value of X greater than 200, which is off the 
right side of the screen. By setting X equal to 40, the 
character will suddenly appear on the left! 

One part of this example doesn't show up In the program 
listing. That's priority, meaning "What will appear in front 
of what". In other words, will a character appear to go 
inside a House drawn on the screen, or pass In front? This 
example didn't POKE anything into the Priority register, so 
the defaults were used. Here are the options for the 
priority register: 

36 



PRIOR (623) 

ADD 
For overlapping areas of Players 
to have a third color 32 

For all 4 Missiles to have the color 

In location 71 1 ( P I ay f I e I d 3) 16 

ADD ONLY ONE FROM THE FOLLOWING LIST 

PrQ, PF1, PO to P3, PF2, PF3, BACKGROUND 8 

PFO to PF3, PO to P3, BACKGROUND 4 

PO & P1, PFO to PF3, P2 & P3, BACKGROUND 2 

PO to P3, PFO to PF3, BACKGROUND 1 



To use this 
TOTAL NUMBER 
pr I or 1 1 1 es, so 



location, just add up the options and 
Into 623. You can only choose 
either choose 8, 4, 2, or 1. 



POKE the 
one set of 



*=* 5TH F> LAYER? 



Remember In example 5.5, the 
could press SELECT and have all 
Into a single Player? This Is how 
wltn 17 for both the priority 
colors (lines 1000 to 1050). Then 
locations next to each other, 
only 2 pixels wide each. You can 



Color Utility, how you 
the Missiles come together 
It was done. I POKEd 623 
I wanted and to change the 
I simply moved their X 
Remember that Missiles are 
use them together just like 



a regular Player. The mathematics to keep track of them will 
be a little harder, that's all. 



IXEL WIDE PLAYERS 
EXAMPLE 5-13 



You now know that you have at least 128 pixels In the Y 
direction to work with. For Single line resolution you have 
256. But so far we have been hindered by only 8 pixels of 
width. The answer Is obvious, but I'll mention It anyway. 
Just position two Players near each other so they match up! 
You can write some simple math to 
In the X direction. Look at example 
I ogo made this way . 



always keep them 8 
5.13 to see an 



apart 
ATARI 




II s 



tfLfl/lv^ 
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EXAMPLE 5- ±*. 

(32K required) 



Just in case you have gotten to this point In the 
Tutorial, and feel you haven't gotten your money's worth, 
example 5.14, the last program, Is an Editor to create and 
change your Player shapes. I hope you like It! Here Is how 
to use It: 

1) When the program starts, it will ask if you want to 
load In old data, or create new shapes. Choose NEW. 

2) Then Press the SELECT button. The message "Player # 
to edit" will appear. Pick any number from to 4. 
Player 4 Is made up of the Missiles. 

3) A flashing cursor will appear In the editing box on 
the left. Press D to draw and move the cursor with the 
four cursor control keys ( the CTRL is not needed). 

4) To stop drawing, press E (erase). Move the cursor to 
the next spot you want to draw. 

5) While continuing to edit the shape, press START to 
see the Player's shape updated. The Player will appear 
next to It's number. 

6) You may also move the Player you are currently 
editing anywhere on the screen by using a Joystick in 
Port 1 . 

7) You can change the size of the Player being edited 
(except #4), by pressing SELECT and choosing 0, 1, or 3 
for normal, double, or quadruple size. 

8) Press OPTION to edit a different Player. 

9) Press S to save the shapes you have made to tape or 
disk. 

10) Press L to load any saved Players back In. Disk 
users will find a set of Players on the disk already. 
Remember when you load in a set of Players you won't 
see them until you press OPTION and request each one! 

This Editor should allow you to quickly create Players 
for any purpose. Write to us with suggestions on 
improvements and I wll I incorporate your Ideas in later 
versions of this program. The code for this also is a great 
Tutorial on handling Players by using strings to store them 
In. Advanced users should study it. 

************************************ 

At this point let me see if there are any loose Ideas 
that need to be covered. First, let's go way back to the 
game In example 5.2. You have learned all of the technical 
aspects of writing a game using PMG. I want to discuss the 
structuring of a game. This means what goes where in the 
program coae. You should be able to figure out the rest, but 
If I've missed anything, please write. 
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NOTE: 



Because of the special characters in this program, the 
listing bei ng referred to will be found a few pages on In the 
listings section of the manual. 



WHO'S A 




character 



Lines 40 to 60 set the colors. Line 70 points to a 
subroutine to draw the Playfields. Always do this toward the 
end of your program so that the main loop will run more 
quickly. The P I ay field In this case consists of Just 
plotting a lot of data. This Is similar to the earlier 
discussion on Playfields. 



Line 80 te I I s you that 
Is just setting up Itself. 



the program hasn't stopped, but 
This Is always a nice touch. 



Line 110 Is tricky. It's another machine language 
subroutine! But this one Is far more useful than the 
earlier one. Here I set up four starting locations that are 
in a safe area of memory, right between PMBASE and 
PMBASE+768 where the Missile data starts. Since line 20 
clears this whole area out, we know It Is safe and 
available. You'll see what goes there In a moment. 

Now, in lines 130 to 310, I POKE in the data for two 
shapes for the Pacman(tm) and two for the Squiglly Monster. 
These start at convenient increments so I can find the 
shapes later. 

Line 330 Is the machine code which is stored In a string. 
You may copy this line out for other programs along with 
It's dimension statement In line 50 and It's USR call. 



Lines 380 to 440 
keep track of X and 



do the normal math that 
Y for TWO joysticks. 



Is needed to 



Lines 450 to 480 are the neat part. First let me tell you 
what the machine language can do for you. The routine Is a 
memory move routine. It takes the values in the memory 
locations you tell It, and moves them to any other location. 
You can use It to move and entire screen of data Instantly! 
I use It to change the shape that is in the area where the 
data for the two Players Is stored. These lines simply tell 
the computer . . . 

Line 450: "Move the Pacman(tm) data from the location 
called shape2 to the Player area using 20 bytes of data" 
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area 1 



Line 460:"Same thing, but move Squiggly data to Player 1 



Line 470:"Move a different Pacman(tm) shape to the 
Player area" 

Line 480:"Move a different Squiggly shape to the Player 
1 area. 

All of the moves above also take care of movement up or 
down the screen at the same time with the addition of the Y 
coordinate you want in the "move data to" location. This 
rouTine will move all 5 Players and/or the Missiles very 
quickly. The earlier machine language routine only moved 
Player 0. 

Lines 490 to 570 take care of all the Collisions that we 
might be interested in, and each branches to a subroutine or 
makes some change on the same line. 

The scoring and sounds are straight forward.... Make a 
sound... Increment a score ...change a color. ALL of these 
depend on your Imagination, i.e., what do you want to happen 
I n the game? 

Here are the lines to use for the second machine language 
rout f ne . 

50 DIM A$(100) 

450 D=USR (ADR (A$), From Address, To Address, # of bytes to move) 



Even though I did not emphasize the use of Missiles very 
much, I hope you realize that they are handled just like 
Players except .they are two bits wide. A good example of 
moving them is In example 5.1, lines 640 to 710. 

Your main limits are having only two pixels of width, and 
the Missile data areas all in the same stripe. This means 
you must POKE 0's Into the data area for Missiles you don't 
want to snow on the screen, or just move them off screen 
wiTh the horizontal position registers. 

I left a few strange things In the programs in terms of 
colors, sizes, and moving shapes off screen when not in use. 
If you are going to understand PMG, I suggest you now take 
any of my examples and start to clean up little details to 
be more to your liking. That will be your final exam... 

WILL YOU PASS? 



Scores will be mailed out on Friday. BYE!!! 
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SELECTED 



PROGRAM LISTINGS 

EDUCATIONAL 5 O F THAR E 



P MB A 3 E + 2 O 4 8 : 
3 E T U IP MKWKK 
7 A „ JL 2 .1 : P O K IE 



P O K E 



5 REM E X 5 . 2 ( C ) JL » 8 2 B V 'SANTA CRUZ 

IMAM CHARACTER COPYRIGHT ATARI INC. 

18 GOTO 588 

20 FOR T=PMBASE TO 

SO REM XXllltM PLflVER 

4 O GRAPHICS 71POKE 

liPOKE 559,62 

SO DIM A$C100) SPOKE 623,1 

BO POKE 7e8,183iPOKE 752,l:POKE 

7 O GOSUB 6 9 O : R E IM D R A M BACKGROUND 

SO ? "■ KXK MA IT A MOMENT PLEASE X-*H*' ■ 

SO A = PEEK(186)-32:POKE 54279,A:P MB A5E = A*256 

A O O POKE 53277,3:POKE 5S256,8iPOKE 53250,150 



PAC 



,0:N E K T I ! R E T U R N 

7 JL 2 , : P OKE 784,41:POKE 7 & , 4 

7 9 .,. JL 4 B 



^ 



118 GOSUB 28I5HAPE1 

B:5HAPE4-P MB A 3 E + 1 5 O 

1 2 O RESTORE 1 6 8 : V 1 = 1 "7 2 : Y 2 = 1 7 2 

ISO FOR I=PMBA5E TO PMBASE+2 

1 4. O POKE I , B : N E K T I 

ISO REM MMMMM DATA FOR PACMAN1 m-MM ' KM 

ISO DATA 8,8,8,28,62,119,1 2 7 , 1 2 6 ., 1 2 4 

28,8,8,8,6,8 



PHBA9E : 3 H A P E 2 = P 1MB A S E + S O ! SHAPES S= PMBA5E + 1 O 



Kl=68 : M2=19fl 

R E A D B 



1 2 O , 1 2 4 , 1 2 6 „ 1 2 7,126,6 2 



170 
1BO 

198 

200 REM 
218 DATA 
, 8 , O , 8 , 8 

2 2 8 POKE 



TO PMHA5 E ■*■ 7 8 3 R E A D B 



RESTORE 218 

FOR I = P MB A5E + 58 

POKE I,BlNEKT I 

W-MHHH W DATA FOR PACMAN2 *«**fr*IHX-+e 

Bj O , 8 , 28, 6 2 , 118, 126 , 126 , 126, 126 



127,125,126,62,20.0 



: PMB AS E + J. O O T O P MB A5E + 12B:READ B 



559, 6 2 
RESTORE 2 6 8 : F O R 
POKE I.BlNEXT I 

REM MXXKM DATA FOR MONSTER I MMMMHM 
DATA 0,8,0,0,124,214,214,254,124,68 
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246 

2SO 

260 

,6,8 

2 7 8 RESTORE 3 1 O 

2 88 FOR I = P MB A 3 E + 1 5 O 
298 POKE I,B:NEKT I 

3 88 REM X M M X X DATA FOR MONSTER 2 X-X- x X X X M X 

318 DATA 8,8,0,8,124,254,214,214,124,68,68,102,8, 
,0.0,0 



68,204,0,0,0,0,0,0,0 



TO PMBASE+I70 : READ B 



8,0,0,0,0,0 



eoosGas" 



FOR X = I 
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320 SCOREHON=3 : 5COREPflC=3 

3 3 a a * = ■ > kqj ho hfE hanHriahnBhri3HCT£a<»ff«3rw3nBii3rasH€^ i-eczcnvemErai h*ao 
34.0 ■? s? »? : ? ""Eooaraei 

; nekt ::»:: 

ISO REM «*K**Hf-MftIM LOOP KKKMK'K 
GD5 U B 183 
POKE 5 3278,:l.:REM CLEAR ft L L COL X S X O M 

" 5) 

S T A = 5 T X C K I" 3 ; S ■-- p E E IK C 5 3 2 ,7 9 3 
5T2=S T X C K t X :* 

1 IP' 5 = 3 T H E H P O IK E 7 6 4 , X 2lRU N "DiEHS. 

V X = V X ♦ C S T X = X 3J«2 - C 3 T X = X 4 3 -3*2 

V :2 = Y 2: + (ST2 = X 3 3 **2 -CST2 = X 4 3 *£-:£ 
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3- 7 O 
O L D 
3 8 

3 9 

4 fli 
4 X 
428 
4 3 
4 4- & 
4 5 © 
4 6 Si 
4 7' 
4 © 

4- -3' 
, 

5; e o 

Kl 8 



LOCATIONS t'SO THEY IH 



K X = K X •«- 4: S T 1 = 7 3 

K2 = K2+ (S T 2 = 7 3 
& = U "5 R (ADR C A $ 3 
D = U SR C A D R C A $ J 

& = U 3. R C A U> R t A $ 3 
D = U 5 RCAORt A $ J 

X IF P E E K 1 5 3 2 S 2 3 = 2 T H E M 
1 , © S F O R X = X T O 3 OiHEK 

X F P E E IK C S3 3 2 5 2 3 = X T HI E H 

V X = V X C 3 T X = X 3 3 **3 ■*• C S T X = 



5.1.8 IF PEEK C532S3J : 
O ,, X O , © ; F R X = X T O 

528 XF PEEK C532533 : 



t 3 T X = X .1. 3 : P O K E S 3248,K X 

£ S T 2 = 11J ; P O K E S 3 2 4 9 , K 2 
5HAPE2 „ PMBfl5E+1824+Vl 
5 H A P E4, PMBftSE + X 2 © © + Y 2 
5 H A PEl,PMBflSE *■ X O 2 4 ■*• Y X 

S H A P E 3 , P MB A 3 E + 1288 ■*■ V 2 
P O K E 7 4 „ 2 O ! 

I S S O U N D , , 
K1 = K .1. — C S 'If' .1 = 7 3 
4 3 ** 3 
P O K E 7 O 55 „ 2 © © : 

X ! S O 8..I N D © , © , 



: 2 T HEM 
3 © : H E K T 

: X "J" H E H 



K 2 = K 2 C 5 "II" 2 



7 3 



» 203 
, 289 
, 2 0S 
, 2 ©3 

POKE 
© , 

•+■ (ST 

POK E 
© , © 

■■«-■ (5t: 



7 © S ., 4 X 



S O UJ IM D © , 2 



1=11} S POKE 5324 8 



7 © 4 , 4 .1 : S OUND © . 



P O K E 5 3 2 4 9 



X IF 
X IF 
IF 



■■? 



K2 ; V2 = 
5 3 © I IF 
S 4. 
5 5 
5 6 © 
5 7 © 

5 8 © 
598 

© © 

© X © 

© 2 
© 3 © 
© 4. O 

6 5 © 
6 © © 

6 7 © 
© 8 
© 9 © 

7 
7 X © 
7 2 © 
7 3 © 
7 4 © 
. , 



Y 2 - t S T 2 = A 3 3 -**3 +■ C 5 T 2 = X 4 3 *3 
P E EK C 5 3 2 6 © 3 < > T H E N G O S U B 



PEEK £53253) =4 THEM 
R M D £ © 3 »1 © > 9 9 if' H I 
P E E K C S 3 2 S 2 3 = 4 T H I 



P O K E 6 3 2 78,8 
G R A P H I C 5 X 7 



G O S U IB 
C O L O R 

g a 3 u b 



:,*2 8 ! GOTO 
c 3> 

: p l. o r 3 s 



'0 



5 5 S PLOT 



X 3 5 , © 5 



©6© 



G O T O 3 S © 



**© : 
»© : 
«*© j 
»© ; 
«t© : 
«*© ; 
tt© ; 
St© ; 
#*© ; 



COIN G T O 
COMPLETE 
T O S T U D Y 
FEATURE 3 T H A 1" 
"ATAIRX" tTM) OFFERS 



" WE A R IE 
" HI "If H A 
" F X R S T 



P L A V " " 
GAME"" 
T H E " ' 

"8" H E " ■ 

IJ3 . "" 
bI-S..h l.:i^..h..tl(lwi..,h.J..^Hl(ffl.,,k..r..!ft.^ 
Hi M ^..M.....,mSffi. iJL JL J.. 1 ^HBb..^L" X *a..R.llfflBl. jtrtf."l..h.m.lwHffi.!!.l..i™ 

"UiimamiMMMimammsgsmimna" 

F O R I :■ " X "II O 3 © © © ! H IE K T I : GOTO 
R IE M ■ M - M - M-W IB A C KGRO U H & 

R IE S T O R E 7 4 © S COLO R X 



3© 



R E A D 

P L. O "«" 

G O T O 

l> A T A 

5 , A © 



K X , Y 1 

K X ,. "1" 1 

7 1 

2 © , 2 © 

5 , © , 

2 , 3 
X© , ©© 

3 © .,. 3 © 



K2 ,V2l .: 
DftftMTO 



: F H X = 9 9 '3 
K2 „ V2 



T y~« E M © 2 © 



7 5 8> A "II" A 
© , 10, 6 

7G0 B> A "IT A 

, 4 , 6 if* , 1 © , & O , 5 © , 3 © 

7 70 & A 1" A 7 , 3 © , 9 © , 



, 2 © , © , 2 8 , © „ © , © , © , © , 
* , 1 , 4 , X & ,. X © , X O , 3 
, 2 © , 4. © , 2 © , 4 © „ 4 © , 4 © , 
, 1 © „ 7 © , 1 © ,. 7 , 5 „ 7 © , 
, 3 © .„ © , 3 , © „ 7 © , © , 7 © , 
5 8, 4 © , 5 © , 3 © , © © 
© , 9 © . 3 © , 9 , S © , 



© ,, 7 3 , © , 7 9 , 7 © „ 7 "St . 

© , 1 © , 3 © , 2 , 3 

4 © , 4 ,4© , .1. © , 2 © , ! 

5 © ,„ 7 © , 5 © , 4 © 

© .,. 7 © , X © , S © , © , 5 © , 

.,, 4 © , © © 

7 © , 5 © , 7 , 3 © , 7 © , :: 



7© , 79 



'© 



7 



;© 



2 © , © © , 2 © 



3 „ 5 © , 4 8, 6 



:© 



1 ,28,18 



© „ 2 © , X O 8,6© , 9 © , 1 , "9 © , 2 © 
7 SO DATA S © „ © , 1 5 9 , © , 1 5 9 
^ 6 , © © , © ,. © , © © , © © , 7 © 
7 1? O DA T A 9 © , © © , 

X38 „ 7© 

.100 , 3© 

58,128 

1 5 O , X © 

1 © , X 



© , 130 , ©0 

© ©O DATA 

© , S © , X 4 © 
© 18 DA T A 
J.. 8,100,8 



J© , 7 , 98 , 
,138,4 © „ 1 

, X 3 © , 3 © , J.. 



88 


, 1 © „ © © , © 


© , 


L 5 3 , 7 © , 1 5 9 , 7 9 , 


7 8 


, 1 S © , 7 © , 1 5 © , 7 © 


X© 


, 4 © , X X , 4 © , A A © 


X© 


,18,1 .1. © , 2 , .:«.. J.. © 



8 8 . 



S © ,7 9 , S © , © © , S © 



1 S © , 4 © , 140, © © , 1 3: , © 



2 , X S © , 2 © , X 4. © „ 2 © , A 4 



SO, A 2 © 

X 5 (J „ 3 
9 9 9 , 9 5> 



5 © , A 2 © „ © 

1 4 0,.© , 1 4 O , 1 © , 1 3 © „ 1 © „ .1. 3: O , 2 8,128 

9 , 9 







;© 
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82 REM K KMXKWM FILL BOXES ******** 

8 SO COLOR 2: FOR X = X TO 20:PL0T 70 , 3B + I : D BftWTO 9B,3B + I:NEKT X 

8 4 Gi C O LOR 3C 

© SB RETURN 

868 REM **** * SCORE FOR IP AC ■ MMMMKKKMMMKK 

8 7 O COLOR BiPLOT 35,5S:PLO T 1 3 5 , 6 5 s S C O R E IP A C = S CORE P A C + J. : F O R I 
= 5 T O I 5 T E IP — IsSOUHD O , I , I8,8:HEK T X 

886 GOSUB 1830 : RETURN 

89B REM *** SCORE MONSTER KHKKXWK 

9 O 8 C O L O R BlPLO T 3 S , 5 5 8 P LOT JL 3 5 , 6 55 2 S C O R E MO N = SCOREMON + I 1 F O R I 
= S T O JL S T E IP - JL :: 3 O U N l> , I , JL O , 8 : N fe K T X 

9 J.. 8 G O S UB JL O 3 & S R E T U R N 

92 8 REM K«*K PftC HITS MONSTER *M«**iK Mi««HC* 

■3' 3d IF' PEEK(5326B)=2 AND PEEK(764)=2BB THEN SCOREPflC = SC O R E P A 

C + 5 : GOSUB 10 30 : GOTO 9SO 

•9 4 & G O T O 9 6 O 

■9 3 8 F O R X = 2 O T O O S T E P - .1. : SOU IN D O „ X , X © ,8iH E K T I 

'968 REM ****** MOW HITS PACMAW ****** 

978 IF PEEK (53261) =1 AND PEEK(7B5)=28B THEN SC ORE MO H = S C OR EMO 

M + 5 : GOSUB 1030 : GOTO 1? 9>8 

9 8 8 G O T O 1 O O 

■51. 9 1} FOR I = T O :2 O O S T E P 1 : S BUND O , I , 1 B,8;HEK T I:SOUND , , O , 



1 O 8 K 1 = © ! K 2 = X 9 O S V 1 = I 7 2 : ¥2 = I 7 2 

1 1 ll> U M= U S R e. A ll> R C A $ S , P MB A S E +288, P MB A S E + 1 8 2 4 + V , 2 4- 8 3 
X 8 2 8 lt> U M= USR C A D R C A S 31 , P MB A S E + 2 8 „ P MB A S E + X 2.*, S X 3 
X 8 3 O IP O K E 6 5 6 , I : P O K E 6 S 7 , 2 : "? "PflCMflN = ■ " S S C O R E P AC;:"" 
S O LI I G X L. V "-v.: " " : S C O REMON ! R E T U R N 



4 REM E K 5.6 

5 REM (C) 1982 BY SANTA CRUZ EDUCATIONAL SOFTWARE . WRITTEN B 

V ROBIN S H E R E R 

X 8 FOR I = X TO BiPOKE 53247 + 1, BiNEKT ISGBTO 4X8 

2 REM MUtMN PLOT SHAPE ****** 

3 8 COLOR 8 

4 8 D = D+(ST = 6) + ( S T = 7 ) + (ST=SJ - (ST = 9) - £ S T = 18) - (ST = 11) 

5 E = E+(ST = 13) + (ST = 9 » + C S T = 5 5 - C S T = 6 ) — (ST = 18)~(ST = 14) 

6 O F O R K = O TO 9 : F O R Y = T O 2 S ! P L O T K + D,V + E:NEKT VlNEKT H 

7 8 R ESTORE X 5 8 : • C O L. O R 1 

SCH FOR M = X TO 188 I READ X : READ V 

90 IF H=0 AMD V=0 THEN RETURN 

X PLOT K + B> , V +ESNEKT N 

x x Esti,68)="h h h .j hh "■ fLir^reaiiinj^h ,j hej nm^M33SjrEW'rnrr,h j HLiisj^KKG:«i*[i3 

h JLlTsJ3CMi:Mi*f3* *«*■• " 

X 2 8 REM POKE 53248,38 

X 4 SOUND 2,8,8,2:FOR U O L ■= X TO X 5 STEP B.l:SOUND 6,25,4,UOL! 

5 O U H D X , X 3 ,, 4 , U O L 

X 5 DATA 5,0,3, X , 4. , X , 5 , X , 6 , X , 2 , 2 , 3 ,2,4,2,5,2,6,2,7,2,1,3,2,3 
, 7 , 3 , 8 , 3 , 2 , 4 , 3 , 4 , 4 , 4 , 5 , 4 , © , 4 „ 7 , 4 , 3 , 5 , 4 , 5 , 5 , 5 , © , 5 

X 6. O DATA 4 , 6 , 5 , © , 2 , 7 , 3 , 7 , 4 , 7 , 5 , 7 , 6 , 7 , 7 , 7 , I , 8 , 3 , 8 , 6 , 8 , 8 , 8 , X , 9 
, 8 , 9 , 2,18 , 4,18,5 , 1 8,7,18,2,11,4,11,5,11, 7 , 1 1 

J.. 7© DATA 2,12 , 7,12,3,13,6, X 3,3,14,6 , 14,4,15, 5 , 15,4,16, 5 , X 6 , 4 
, I 7 ,5,17,4,18,5,18, 3 , X 9,4,19,5 , I 9 ,6,1 9 

X 8 8 DATA 2 , 2 8 , 3 , 2 8 , 4 , 2 8 , 5 , 2 8 , 6 , 2 O , 7 , 2 8 , X , 2 1 , 2 , 2 1 , 3 , 2 1 , 4 , 2 1 , 5 
,21,6,21,7, 2 1,8,21 , 2 , 2 2,3,22,4,22,5,22,6 .,. 2 2 , 7,22 
X 9 8 D A T A 3 , 2 3 , 4 , 2 3 , 5 , 2 3: , © , 2 3 , 4 , 2 4 , 5 , 2 4 , 8 , 8,8,8 
2 £H0 REM *****PLAVER SETUP ***** 

2X0 DIM E5f6fl) [GRAPHICS © : D = 2 8 : E = 5 8 : P O K E 559,BlGOSUB 28:? 
WHICH IS THE PLAYER?" 1 iPBKE 7XO,X48:POKE 7X2, X48 

220 ? » "Hooraiii = sizes H uman = hext eh." 

230 ES£i,6fl)="hhhJH[g •m^SMSFrsmmixsh j he ^^^aiFiar r hch j HwrsMSEasmvai 

hJ BJNJHBiai n *£3 * * * " " 
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4 REM EK5.3 

5 REM CO 1982 BY 5ftHTfl CRUZ EDUCATIONAL SOFTWARE (ROBIN 5HER 
ER) 

18 GOTO 3 

20 FOR I = P 1MB ASE + 1024 TO IP 1MB ftSEHS36:POKE I.OlNEK T I : RETURN 

J8 GO SUB 200: REM ORAM MOUNTAINS 

4 8 DIM E$C683 

SO GO SUB 380 : REM ORAM STAR'S 

© O POKE 7IB,0:P0KE 712,0;POKE 784,123 

7*0 GO SUB 38B:REM SETUP PLAYERS 

BO POKE 2Q4,A+4:POKE 203,0:P0KE 285,120 

•3. & esc .1 ,68j = : -hbhj hoi "■ WMwrsnEwash a hgj maiaiisarroflEh a HtssjasEGaK^Gjh 

JSNJTE^aGTBHi'Wia* •«*•*" ' 

.J. OO REM P O K E 53248, 3 O 

1AB REM «*»MAIN LOOP WMKMHM'itKM 

J. 2 O S O U MO 2 , 8 , 8 , 2 S IF OR M O L = I T O AS S T E P 8 . A S S O U N O O , 2 5 , 4 .„ W O L II 

SOUN O A , A 3 „ 4- , M O L 

A 3 O fl = U5RCfl O R C E ft J , S T I C Kf8)) 

148 NEKT MO L 

ISO FOR WO L = A .4 T O 8 S T E P - 8 „ A ! S O U N O 8 , 2 S , 4 , U O L S 5 O U HO A „ A 3 , 4 .,. 

U O L 

A 6 O A '■:= U S R (ADR t" E ft 3 r S T A CK CO) S 

A 7 8 NEKT UO L 

A BO I IF PEEKC6 3 2 7 3' J = 3 T H E N POKE 764,12:RUN " ■ O : E K 5 . 9 • " 

A 9 8 GO T O A A O 

2 88 REM M tt rMW PLOT BACKGROUND KMMWM 

2 A 8 G R A P H A C S 8 + A 6 S R E S T O RE 2 6 8 

2 2 8 COLOR A 

2 3 8 R E A D K , V : P L O T K , "«* 

2 4 8 R E A O K , V S I F K >9B8 THEM RE T URN 

25 8 OR A WTO K,¥+18:GOTO 248 

2 6 8 DATA 8,157,27,166,39,166,49,166,57 , X 5 7 , S 7 , A 5 © , 6 9 ,158, 7 4 , 

A 6 4- , 8 7 , A 7 8,8 7 , A 7 A , 9 8 , A 69,9 5 ,148 

2 7 8 O A T A 118,7 8 ,112,6 S , A .1. 4,58,1 A 6,63 , A 2 7 , 9 3 , 1 3 8 , 9 7 , A 4 O , 9 7,15 

3,63, 159 , 57 , A65 , 84 , 168 , 91 , A7S , A83 , 181 , A23 

2 8 8 DATA A 9 8 , A 7 4 , A 9 9 , A 74, 285 , A 6 5,28 7 , A 4- 9 , 2 2 9 .„ A 3 3 , 2 4 5 „ 1 S 6 ,256 

,133 , 271,128,28 3 ,16 5 , 2 8 7 , 1 7 2 , 2 9 A , 1 6 4 , 3 8 8,8 9 ,385,7 6 

2 9 8 DATA 318,63,999,999 

3 8 O REM «-*€-*€-** S T A R S M-M 1C M M 
318 TRAP 3 7 8 

3 2 8 RES T O R E 3 48 

3 3 8 R E A O K , V S P L O T K , V S G O T O 3 3 8 

3 4 8 O A T A 2,4,5,8,9,1 & , 1 3 , 4 3 , 34,6 5 , 7 , 3 , 2. 3 , 6 6 , 1 2 3 , 4 5 , 3 8 8 , 6 7 , 3 8 
1 , 6 5, 246 , 3 4 , 2 3 4,49,261,68,24 1 , 1 3 3 , A 2 3 , 5 5 , 6 7 , 9 8 

3 5 8 DATA 12,64, 7 5,58,119 , 1 8 , A 3 3 , 4 3 , 4 , 6 5 , 7 , 9 3 , 2 8 3 , 6 6 , 1 2 , 4 5 , 1 7 
8,67 , 1 4 5, 65,46, 34, 18 7 ,49, 1 2 3 , 6 8 , 2 1 , A 3 3 , 2. 4 3 , 5 5 , 1 A & , 7 4 
368 DATA A23 , 5 , 156 ,7,213, ® , 295 , 12 , 296 , 34 , 294 , 5© , 238 , 56 , 238 , 6 
, 78 , 9 

3 7 8 R E TURN 

388 REM KXK* SETUP PLAYERS «HMHMHWr 

398 A--PEEK C 1 8 6 3 -48 » POKE 54279, A S PMBASE = A*2S6 

4 88 GO SUB 28: REM CLEAR PM AREA 

418 POKE 53277,3! REM TURN ON PM OMA 

4 2 8 2 = 2 8 : R E M INITIAL V POSITION OF SHIP 

4.3 8 K = 158 : REM INITIAL X POSITION OF SHIP 

448 POKE 53248, K8 POKE 53249, KS REM POSITION SHIP t P L. A V E R O 3 AN 

O FLA ME CPLflVERl) 

458 RESTORE 488 

468 FOR I=PMBA5E+1024+Z TO PMB A SE +1 2 8 8 ! R E AO SHAPE; IF SHAPE <> 

8 THEM POKE I, SHAPE iNEKT I 

478 POKE 623,l:REM SET PRIORI T V 

4 8 8 DATA 8 , 6 8 , I 2 6 , 1 9 5 , 1 2 6 , 6 O , 2 4 , 1 2 6 , 1 6 5 , 1 2 9 , 9 8 , 8 , 8 , 8 
498 POKE 5 59,62 

5 8 8 RETURN 
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2 4. A :■■" P IE IE K f .1. © B > - JL 6 S P O K E 6 4. 2 V 9 , ft ! P O K IE 2 .4 ,, A + 4. S IP OK E 7_03,8lPMB(i 

5E=A*256 

2 5 Gi POKE 5 3 2 '7 7 „ 3 g P O K IE 7 4 , 4 B:POKE S 3 2 4 © , JL IS S P (J K IE 2 © S .„ JL 2 ; P O K 

E 5 3 2 5 6,, 

2 © © F O R X = P M B A 5 IE * JL & 2 4 T O P M IS A 3 IE + JL 2 8 & i P O K E X , © : N E K T I" 

2 7' S R E 3 T O R E 2 9 © 

2 8 & F O R 3C =: IP M B A 3 E + JL I 5 5 TO IP M B A 5 IE -§■ JL 2 © 9 : R E A H> B I POK E X ,itN E K T JL 

2 9 O t> A T A 8 ,, © , 6 © , 6 & , JL 2 6 , .1. 2 6 , JL 9 5 , .1 9 6 ,,. X 2 6 , JL 2 © , 6 6,66,24,24,126 , X 

2 6 , JL 6 5 , JL 6 5 

3 O DA T A .1. 2 9 .„ JL 2 9 „ r r* 6 , 9 , 9 ,, 9 6 , 6 6 , 6 6 , 3 6,36,36, 3 6 ,,. 2 4,2 4 .,. 2 4 , 2 4 „ 2 

4 „ 2 4 , 2 4 , 2 4 

3 X & t> A T A 6 6 , 68,1 2 B , JL 2 6 , 2 5 S , 2 5 5 , .1. 2 6 „ .1 2 © , 6 © ,. © © ,24,24 „ © .„ © , © , © , © 



3 2 © 
3 3 © 
3 4- © 
3 5 © 

3 b a 
3 7 © 
3 s © 

3 9 © 

4 © 
4 J.. © 
4 2 © 
4 3 © 
4 4 
4 S O 
4 © © 

4 2 
4- © 
4. 9 © 

5 © © 
5 X © 
5 2 © 
5 3 O 
5 4- © 
5 5 © 
S © © 
S 2 O 
S 8 © 
5 "9' © 
© © 
© X © 
© 2 



P O K E 
R E M 

R IE «■ 
R E M 
I IF 3 
3 T = 3 
X IF 3 
X IF 5 
A = ILI 3 
G R A P 



5 5 9 , 6 2 



1 9BWMWHA X M LOOP - MMMiCMMC 



2 *t© 

2 **© 
2 **© 
2 «*© 
2 8*© 
2 8*6 
2 »© 
FOR 
R E M 
C O IL. O 
f> = » * 
E = E * 
R E 3 T 
F O R 
X IF H 
P IL O T 
X IF F 
R E T U 
F O R 
R E T U 
l> A T A 
, 7 , 3 , 8 , 3 
© 3 © D Hi T A 
, 8 , 9 , 2 , X 
© 4- © B> A T A 
, .i. 2 , 5 , JL 2 
© 5 D A T A 
, 2 I „ 6 , 2 JL 
© © J> A T A 
© 7 © R IE M 
©SO 2 :: '? 

E33EEIlXri = 

© 9 P O K E 
P K = P 
X IF P 
I IF P 
X F P 
Gi O T O 



T R I G C 
TICK t 
= 5 II" H 
= 3 T H 
R CADR 

H X C 3 

, »u TH 

; "" 3 

j "&IF 

j "HOB 

j ""AMII> 

; ""VOLI 

S "HHI 

t: = jl t 

R JL 
C 3 T 
C 3 T 



© 



= © 



R E 3 
= X T 

© A IM 
H *■ ll> , 
A GI = O 



© 3 
© :* 

EH 

EN 

CE 

.1 7 

IS 
HOWS 
F E R E 
MALI. 

A P 
R j O 
C H X 
O 3 © 

P IL. O 

3 -II- C3 
3.} #■ C 
7 © 

O X O 

J> V = 

V + E ! 

T H E 



T H E H G, O S LI B 2 © ,1 F LAG = © 
= IP IE E K (5 3 2 7 3 3 
O 3 U B 6 7 © 

O K E 7 6 4,12 : P O K IE 5 3 256 , 8 : B:IJM " " l> :: EK5 . 7 ' 
, 3 T X C K C © J 3 : G O T O 3 © © 
O K E 7 JL 2 , .J- 4 8 
EXT EK AMPLE 

V OU THE 
IM C E BETWEEN A " " 
V DRAHH SHAP E " " 

LAYER use " 

it S t i C k T O 3 E E " " 

s the raaEraaais"" 

0© ! HEXT I :: GOTO 2X0 
T 3 H A P E M-»*"«*lr*H* 

T = 7 3 * C 3 T = 5 3 - C 3 T = 9 > - € 3 T = JL O 3 - C 3 T = .1 X 3 
3 T = 9 3 + C 3 T = S3 3 - G 3 T = 6 3 -- C 3 T = i. © 3 - C 3 T = X 4- 3 

: READ' K ! READ' V 

© T H E N X X 

INI IE K T" M 

H C O L O R © ; GI O T O X 3 



R H 

K = 
RIM 



TO © ;: FOR 



: © T O 



IP IL O T H *■ H> .„ V •#■ IE :: IM E H T 



IM E K T H 



4 
© .„ 4 



;■" 
, ; " x © 

?' 2 o 
?" 3 O 
?' 4- © 



© ,, 

4 , 
© , 
.„ X 
2 .„ X 2 
, 4. .„ X © 

2 , 2 O 
.,. 7 » 2 X 

3 , 2 3 
KKK MM 

■I -'ji- u a 

HEK T 
7 6 4 , 

eeik: t7 



= 5 O 
= 3 X 
= 2 6 
7 © © 



3 , .1. .„ 
3 , 4. , 
5 , © , 
., 5 , 

7 ., X 
5 » X 

3 , 2 

8 , 2 

4 , 2 
3 1 Z 

P R E 3 
EK . 
2 5 5 
© 4 3 
T H E IM 
T H E H 
T H E N 



4- , X , 5 , X , © , X „ 2 , :Z .„ 3 , 2 , 4 , 2 , 5 , 2 .„ © .„ 2 „ 7 , 2 „ X , 3 , 2 

4 , 4 , Si .„ 4 , © „ 4- ,. 7 ,, 4 .„ 3 , Si , 4 , S „ S , 5 .,. © .„ 5 

2 , 7 , 3 , 7 „ 4. „ 7 » 5 , 7 .„ © , 7 .„ 7 , 7 „ X .„ 8 .„ 3 „ 8 , © .„ 8 , 8 , S „ 1. 

X © , 7 ,. JL © „ 2 ,, JL X „ 4 ,„ JL JL .„ S .,. X X „ 7 , X JL 

2 , 3 j .1. 3 , © ,. X 3 „ 3 , X 4 , © ., X 4 , 4 , X 5 .„ 5 „ JL 5 , 4 ,, X © ,. 55 .„ .:».. 6 
8 ,. 3 , X 9 „ 4 ,„ X 9 „ S .,. .:«.. 9 i, © , .:«.. 9 

.„ 4 , 2 , 5 ., 2 .„ © , 2 © , 7 ,, 2 © , X , 2 X .,. 2 .„ 2 X , 3 , 2 X , 4 „ 2 X 

X ,. 2 ,22, 3 , 2 2 , 4 , 2 2 „ 5 „ 2 2 , © ,„ 2 2 , 7 , 2 2 

3: , 5 , 2 3 „ © .„ 2 3 , 4- „ 2 4 , 5 , 2 4. .„ © .,. @ „ , O 

f: s -m: k mik >fr 

3 ©, X, OR 3 IFOR SIZE":? »» KfWWap y| = SXZE3 



IF> K E 5 3 2 5 © „ O S R E T IIJ R IM 
IP O K E S 3 2 5 © ,. X ! R E T U R IM 

IP O K E S 3 2 S © , 3 : R E T 1.H IH M 
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CCJ 1982 BY SflHTfl CRUZ EDUCATIONAL SOFTUARECRDBIN SHER 
B SPOKE 53247+I,0:NEKT I 

urn mnsmwsw'rnxshjHnT\iMnmm*mh 

KE 284,fl + 4:ICOKE 263 , O ! PMBA5 

764,48lPOKE 205,126:P0KE 53 

86 : POKE I,6iNEKT X 

27JREAD B SPOKE I.BiHEXT X 

6,165,129,0,90,96,66,36,36, 

4 , O 

PEEKfS3279)=3 THEN POKE 764,12 



3 REM 
ER> 

4 REM EH 5 . 9 

5 FOR 1 = 1 TO 
8 GOTO JLOO 
lO DIM ES (66) 

26 e$ii , sea =»hhhJHQl m<HswfansnEnE£HJ 

3 6 A=PEEK(166)-16:POKE S4279,A:PO 

E=A»256 

4.0 P6IKE 559,62:POKE 5 32 77 , 3 s POKE 

2 5 6, 1 

SO FOR I=PMBA5E+1624 TO PMBA5E+12 

66 FOR I=PMBA5E+1166 TO PHBA5E+11 

76 DATA 8,60,126,195,126,60,24,12 

24,24,24,0,24,60,126,255,126,60,2 

75 POKE 53246,156 

80 A = IUSR CADR tES) , STICK (8) a : IF 

SPOKE 53256, 6 S R U N "DlEKS.ie" 

96 GOTO 66 

106 GRAPHICS 17 

**6 ; " " WE ME HTIOHED THAT • 

«*6 ; ""YOU MU S T BE CAREFUL. " 

tt6;"HHERE YOU PLACE THE " 

"PLAVER/MI55ILE DATA." 

"XSSJnaBMmKSZMSSaGEEXMMk ' 

• ' N I 'iff 1 1 1 M mititf lj} 

• m am e-wi j«ia ;i turn 



162 
164 
166 
116 
126 
12 5 
136 
14 6 
156 
166 
162 
165 
186 



? **6 
? 1*6 

? S*6 

? **6 

? t*6 

? #*6 

f «t6 

FOR 1 = 1 TO 3666 s NEXT I 5 P O K E 

GRAPHICS 7iPOKE 712,148 

1 "MOUE PLAYER BOTH DIRECTION 




TO GO ON 



19 6 G O T O 1 6 

26 66 REM MKX jHt PLOT SHAPE 

2 616 COLOR 1 

2 615 RESTORE 2166 

2 626 FOR M = l TO 166 S READ K 



READ 



3 RE 
ER) 
5 RE 
lO F 

2 6 F 

3 8 G 

4 6 ? 
LAVE 
56 ? 
LAVE 
70 P 
86 P 
9 6 P 
166 

lie 

126 

136 
14 e 
156 
166 
176 
186 
196 



M tC) 1982 BY SANTA CRUZ EDUCATIONAL SOFTWARE C ROB IN SHER 



M EK5 . 16 

OR 1=1 TO 



8 : P O K E 5 3 2 4 7 + I , 6 S N E K T I S P O K E 5 5 9 , 6 S G O T O 3 6 



TO 



PMBASE+1280 S POKE 

1 press tnaouEE] TO 

FOR SINGLE LINE 



DOUBLE LIME 



OR I--PMBA3E + 512 
RAPHIC5 6s? :; ? : ? 
: "> ■ ■ PRESS IfelMMliijisO 

R" 

. ? .. press gEEOH FOR 

R" 

OKE 764 , 46 

MB=PEEK (166) —16 

OKE 54 2 7 9, P MB 

P MB ASE = P HB*2 5 6 

POKE 53277 , 3 s GOSUB 26 

X = I 2 5 S Y = 1 1 6 S YSAUE = 166 

POKE 532S6,6SGOTO 266 
REM WH CKKK MAIN LOOP 
P=PEEK(53279) 

IF P = 5 THEN POKE 559,62sPOKE 53248,16 6 
IF P=6 THEN POKE 559,46sPOKE 53248,166 
IF P--3 THEN POKE 764,12:RUN "DsEK5.ll" 
GOTO 156 



I , O 3 N E X T I 3 R E T URN 
GO ON";POKE 752,1 

RESOLUTION P 



RESOLUTION P 



POKE 559,34 



■far -w id' M: "Irf SM! 'far 
.Ft. ^% J^. JPW .FL JFC^FC 
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200 REM 

218 REM 5IKGLE LIME BESOLUTIOM 

229 REM 

2JO RESTORE 299:CHT=B 

24 FOR I=PM8ASE+XeZ4+V TO PMBA5E+1288 

2 5 O READ BilF B = O THEM 3 O O 

2 & O CHT = CHT + 1 
270 POKE I,B 
2SO NEXT X 

298 DATA 124,214,214 J 254,124,68,68,204,e,e,0 

3 O O REM 

310 REM DOUBLE LIME RESOLUTIOH MM MM WW 

3 2 O REM 

330 RESTORE 298:CHT=0 

34 O FOR I = PMI8flSE + 5I2+V TO PMBA5E + 640 

350 READ IB : IF B = O THEN 390 

360 CMT=CHT+1 

3 ?• O POKE I .,. IB 

3 O O HEKT I 

3 9 GOTO JL 5 O 



4- REM EKS.13 

5 REM (C) 1982 BV SAINTA CRUZ EDUCATIONAL SOFTHARECROBIN SHER 

ER1 

lO FOR X = 1 TO 8:POKE 53247+1 , Q I NEXT I : G O T O 240 

2 O FOR I = P MB A5E + 1024 TO P MB A5E + 1792 :POKE X , : NEXT I : RETURN 

3 REM KKMKKP LAVEB SETUP *KK1CK 

4 GRAPHICS 7 : POKE 710,0:POKE 712, O: POKE 704, 41: POKE 706,41: 

P O K E S 5 9 „ 6 2 

SO A'-PEEK (106) -24 ! POKE 54279, A: POKE 2 ©4 , A «-4 : POKE 2O3,0:PMBAS 

Er-A*256 

60 POKE 53277 , 3 : K = 15fl I POKE 205,120 SPOKE 53256, O SPOKE 53250,1 

50 

7 GO SUB 20 

BO RESTORE 110:V=15O 

9 FOR I=PMBA5E+1024+Y TO PMBA5E+1209:READ B ! IE B<>0 THEN PO 

K E I , IB : N E K T X 

100 REM *M*M-M-3* DATA FOR FIRST HALF «** 

110 DATA 2,2,2,2,2,2,2,2,2,4,4,4,0,112,0,0,0 

12 RESTORE ISO 

130 FOR I = P MB A5E + 1536 + V TO P MB A5E + 1792 :READ B 1 IF BOO THEN P 

O K E I , B : N E X T I 

140 REM MMMMM DATA FOR 2ND HALF *HH<KK 

ISO DATA 1 60, 160, i. 6 O, 160,160,160,1. 6 0,160, 16 0,144,144, 14 4, 136 

,13 5,0,0,0 

160 POKE 559,62 

165 ? " I6BIT WIDE SHAPE"" 

16 7 POKE 752,1 

168 -f " < = ==== USE JOYSTICK = = =:=:=;>•■ 

178 REM 

ISO REM MMMMM K MftlW LOOP MMMMMM 

19 REM 

2 00 XF STRIG(6)=0 THEM GO SUB 20:FLAG=O 

210 ST=5TICK(8) !S=PEEK(53279) 

2 2 IF S = 3 THEM POKE 7 6 4 , 1 2 S R U M "DiEXS.14" 

2 2 5 X := H + C S T = 7 3 - C S T = 1 1 % SPOKE 5 3 2 4 6 „ X S P O K E 5 3 2 S „ X + 8 

2 3 GOTO 2 O 

2 4 GRAPHIC S 1 7 

2 5© 1 «6.S" DO YOU WANT MORE 



2 6 '? »6 

2 7© 1 »6 

286 ? «6 

2 9 t «*6 

3O0 ? «6 

3iO ? **6 



"COMPLICATED SHAPES? ' 



32© FOR 1=1 TO 3O00SNEXT ISGOTO 40 
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TRICKY TUTORIAL #6 
SOUND 



IE! crl u ci ^i -fc ± onal Software 

presents 

Tricky Tutorial Ctm> **<£> 

SOLJInIDS 

by JERRY WHITE 



This program starts with the simple sound 
statement, but progresses to chords, complete 
songs and special effects. It also 
demonstrates the use of direct pokes to the 
computers built in four channel frequency 
controls. All of the material can be used by 
a beginner, yet if it is studied. you will 
learn many of the tricks that Jerry White 
puts into his other musical programs for the 
ATARI (Name That Song, Player Piano, My First 
Alphabet's tunes). MUSIC FROM BASIC BECOMES 
ALMOST EASY! 

This program requires 16k for tape users 
or 24k for disk, and a basic cartridge. 



Educational Software [ nc 
4565 Cherryvale 
Soquel, CA 95073 
(408) 476-4901 



SOUlNir> TUTORIAL — NOTES: 

This tutorial is different than the previous five in this series. 
Like the others, it makes a complicated subject usable for the average 
ATARI owner. Also, most people feel it is an excel lant value for the 
price. However, the format is quite different in that the program is 
really self documenting. Also, this is the first tutorial written by 
someone other than myself. Both of these changes are for the better, 
so I hope past purchasers of TRICKY TUTORIALS like this one to. 

I suggest you learn the program by first running (and playing with) 
all seven parts. Then, when you find a specific area, that you want to 
understand better, go to that program and load it into your memory. 
Tape users should write down the starting number of each program. Now, 
try looking at the program code itself to see what Jerry has done. 
Think of a way you would like to modify the program, and go at it! For 
example, the song in part three, "DOE RAY ME", could be changed by 
modifing the data statements. For your use, this part is reprinted on 
the next page. 

Following that page you will find a chart of the notes and pitches 
available for the basic sound statement. Then comes the program for 
the special sound effects. You can either retype these in to your own 
programs as needed, modify them for new effects, or just resave them 
by themselves. Note that each little effect is not quite complete by 
itself, but needs the variables V0-V3 defined . Finally, Jerry's 
special gift to us is part seven for which both the listings and 
instructions are included. 

For an interesting effect take out the remark in line 74 of parts 
1,2, & 4. Most people I showed this to didn't like the sound 
associated with each letter being put on the screen. You may, or 
perhaps you might change the pitch values in the sound statement in 74 
to get your own unique effect. 

It's up to you to experiment with sound. This program is the 
foundation. Write and let us know what you think of it. 

Educational Software inc. 
4565 Cherryva I e 
Soquel, CA 95073 
(408) 476-4901 

BYE , 
Robin Sherer 



r 



S O LI l\J O - 3 D o <cz uimiBr~i"lz<sk."tr.l, c=> n 

While many of the programs in this package display 
documentation, SOUND- 3 may require the printed type,. This 
program plays a song and displays sing along words on the 
screen. If you understand this program, and you can read 
sheet music, you may wish to write you own BASIC songs. 

If you don't know how to read sheet music, you might 

get by if you have a good ear and use the old trial and 

error method. If you don't have either, and you can't 
sing, then just listen,, 

You will need some knowledge of music to write music. 
I will have to assume that you understand the following 
musical terms: NOTE or PITCH, CHORD, SHARP, and FLAT. If 
you're lost already, the rest. of this program 
documentation won't help you. Let us know if you'd like a 
tutorial on reading music and describing the previously 
mentioned musical terms. 

Let's walk through the SOUND. 3 program listing. We 
begin by DIMensi oni ng a string called LINE* and an array 
called "N" which will store 50 pitches. These pitches 
will correspond to musical notes. LINE* will store one 
line of words in our song. We then set V0--0 (Voice 0), 
Vl = l (VOICE 1), etc., then GOTO 100. 

Why the heck did he GOTO a line of DATA? I actually 
should have gone to line 120, but ATARI BASIC will bail me 
out a just fall through to line 120, which sends us off to 
a subroutine? at line 21000. That routine just clears the 
screen, displays the heading, POKEs location 77 with a 
zero, and returns. In case you don't know what that POKE 
does, it temporarily defeats ATARI'S automatic color 
changing routine which is also known as attract mode. 

RETURN! ng to line 120, we read data for 50 notes into 
the N (NOTE) srr~a.y. Then I TRAPped to line 19000 which 
makes no sense at all since there is no line 19000 in this 
program. If you decide to make modifications to this 
program, get rid of that useless TRAP. By the way, the 
reason I got away with it was only because there are no 
other errors in this program. The POKE 82,8 indents the 
left margin. 

Before we start reading more data at line 210, it is 
important to understand the use of the "N" array and the 
subroutines found from line 30 through line 74. 

Look at the DISTORTION LEVEL 10 PITCH CHART. The 
first note is quite logically numbered 1. It's 
corresponding PITCH is 14 and the musical note is C. This 
is a very high sound. The higher the sound, the lower the 
NOTE # and PITCH value. In our "N" array, N(l) contains a 



14. The DATA in lines 100 and 110 correspond to the 
PITCHes on the CHART. 

Why use NOTE numbers in an array when ATARI supplies 
PITCH values in their BASIC REFERENCE manual? I'm glad 
you asked. Start reading the PITCH numbers on the PITCH 
chart until you get to the number 21. What happened to 
20? If you look -further down the chart, you'll notice an 
increasing number of missing numbers. Now look down the 
column of MOTE #'s. You will find 50 consecutive numbers. 
This provides us with a quick and easy way to let BASIC 
calculate chords when we supply only the base note of the 
desired chord. 

The subroutine beginning at line 40 is our chord 
calculator. You need only supply it with the NOTE # in 
the variable "P". The routine assumes that P will be at 
least 8 and not greater than 50. It then sets P0 (PITCH 
0) equal to N(P). Then it calculates our chord and stores 
the pitches in PI, P2, and P3. In line 42, we turn on all 
4 voices. Notice that voice is set at a greater volume, 
and the three notes of our chord are played at a lower 
volume but equal to each other. 

In line 50 we get to our WAIT routine. We POKE the 

value stared in the variable WAIT into location 540. This 

location counts backwards to zero at the rate of 60 per 

second (JIFFIES). We just waste time at. line 52 until the 

countdown is completed. Then we turn off VOICE ONLY and 
RETURN. 

So what did all this accomplish? In plain English, 
we played a melody note along with a chord, then turned 
off the melody note. The chord continues to play. The 
subroutine at line 60 is used to turn off ALL voices. 

The subroutine at line 30 will change only the melody 
pitch, then go on to the WAIT routine. 

The subroutine at line 70 turns on all four voices at 
equal volume, then decreases the volume gradually, until 
all sounds are off. 

Now, where were we??? Ah yes, line 210 where we read 
LINE*, CHORD, P, WAIT: PRINT LINE*: and go off to the 
subroutine beginning at line 40. We are reading the DATA 
which begins at line 1000. We read the words, "DOE A DEER 
A FEMALE DEER" into a string then put it on the screen. 
We also read the number 49 into the variable CHORD, 37 
into the variable P, and 45 into the variable WAIT. 

Remember, we G0SUB 40 to play a melody note, 
calculate our chord, play the chord, and kill some time. 
The best way to learn from examining someone elses 
program, is by acting as if you were the computer. Follow 
the instructions, and see what you, or the computer, will 
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do. Let's try it, 

I'll be the computer this time. I have just read the 

data as I was instructed to do in line 210, and now I'm at 

the subroutine at line 40. I am told to make P0=N(P). I 

just read DATA and set the value of P=37. I look up the 
value of N<37) and see that, it is 121. I set P0=121. 

My next instruction is to make P1=N (CHORD) . I read 
the value o-f CHORD in line 210 and know that CH0RD=49. I 
lookup the value o-f N(49) which is 243, and set Pl=243. 
P2 must be set to the value stored in N<45> and P3 must be 
set to the value stored in N<42). P2=193 and P3=162, 

I turn on all -four voices as indicated in line 42 
then POKE the number 45 into my memory location 540. At 
line 52 I look at the value stored in memory location 540 
and compare it to 0. It's not so I check it again. 
Each time I check that location,, it's value is less than 
it was the last time I looked, but it's not. zero so I keep 
checking. I'm getting bored. 

Finally I -find a zero and go on to line 54. I turn 
o-f-f the sound o-f Voice then RETURN -from this subroutine 
to line 220. 

Now it's your turn. Continue through the program 
doing what I just did. If you start. getting confused, 
take a pencil and write down values as you read and change 
them. You should soon understand what I've put your 
computer through, to play this simple song. 

The logic in this program is not suitable for all 
songs. You will have to make minor- modifications for 
different tempos, or if other than standard Major chords 
are required. This program demonstrates one way to play a 
simple song and an easy method of finding the notes of a 
chord. Don't think you can just add a few lines of DATA 
and create the Nutcracker Suite. 

If you just want to enter the music, then see it in 
sheet, music form while it is played, I'd recommend ATARI'S 

MUSIC COMPOSER. If you'd like to see your melody as it 

would be played on a piano, or play your keyboard as if it 

were a piano, consider the SANTA CRUZ SOFTWARE PLAYEIR 
PIANO package. I know the author, he used to be a piano 
ol aver . 



SOUND. 3 (c) 1981 by Jerry White 

10 DIM LINE$(40),Ni50): 
V0=0: 
Vl=l: 
V2=2: 
V3=3: 
60T0 100 

SOUND V0, NIP), 10, 14: 
GOTO 50 
P0=N(P>: 
P1=N(CH0RD) : 
P2=N(CH0RD-4): 
P3=N(CH0RD-7) 
SOUND V0,P0,10,14: 
SOUND VI, PI, 10, 6: 
SOUND V2,P2,10,6: 
SOUND V3,P3,10,6 
POKE 540, WAIT 
IF PEEK (540)00 THEN 52 
SOUND VO, 0,0,0: 
RETURN 
FOR OFF=0 TO 3: 

SOUND OFF, 0,0,0: 
NEXT OFF: 
RETURN 
PO=N(P): 
P1=N(CH0RD): 
P2=N(CH0RD-4): 
P3=N(CH0RD-7) 
FOR DECAY=B TO STEP -1: 

SOUND V0,P0, 10, DECAY: 

SOUND VI, PI, 10, DECAY: 

SOUND V2,P2, 10, DECAY: 

SOUND V3.P3, 10, DECAY 

74 NEXT DECAY: 

RETURN 
100 DATA 14,15,16,17,18,19,21,22,23,24,26,27,29,31,33, 



30 



40 



42 



50 
52 
54 

60 



70 



72 



35,37, 40, 42, 45,47, 50,53,57, 60, 64,66,72, 76, 81,85,91,96 



110 



DATA 102,108,114,121,128,136,144, 
153, 162, 173, 182, 193, 204, 217,230,243, 255 

120 60SUB 21000: 
FOR X=l TO 50: 
READ IT: 
N(X>=IT: 
NEXT X 
200 TRAP 19000: 
POKE 82,8: 



210 READ LINE*, CHORD, P, WAIT: 

? LINES: 

60SUB 40 
220 FOR HE=1 TO 6: 
READ P,WAIT: 
60SUB 30: 

NEXT ME: 

GOSUB 60: 

WAIT=10: 

60SUB 50 
230 READ LINE*, CHORD,?, WAIT: 

•) • 



" LINE*; 

GOSUB 40 

240 FOR ME=i TO 6: 

READ P,WAIT: 

GOSUB 30: 
NEXT ME: 
GOSUB 60: 
WAIT=30: 
GOSUB 50 
250 READ LINE*, CHORD, P, WAIT: 

? LINE*: 

GOSUB 40 
260 FOR HE»1 TO 6: 
READ P,WAIT: 
GOSUB 30: 

NEXT ME: 

GOSUB 60;^ 

WAIT=10: 

GOSUB 50 
270 READ LINE*, CHORD, P, WAIT: 

? LINE*: 

GOSUB 40 
280 FOR ME=1 TO 6: 
READ P.WAIT: 
GOSUB 30: 

NEXT ME: 

GOSUB 60: 

WAIT=30: 

GOSUB 50 
290 READ LINE*. CHORD, P, WAIT: 

? : 

? LINE*: 

GOSUB 40 
300 FOR ME=1 TO 5: 
READ P,WAIT: 
GOSUB 30: 

NEXT ME 
310 READ CHORD, P, WAIT: 

GOSUB 40: 

GOSUB 60: 

WAIT=30: 

GOSUB 50 
320 READ LINE*, CHORD, P, WAIT: 

? LINE*: 

GOSUB 40 
330 FOR ME=1 TO 5: 
READ P.WAIT: 
GOSUB 30: 

NEXT ME 
340 READ CHORD, FjWAIT: 

GOSUB 40: 

GOSUB 60: 

WAIT=30: 

GOSUB 50 
350 READ LINE*, CHORD, P, WAIT: 



7 LINE*: 

GOSUB 40 
360 FOR «E=1 TO 5: 
READ P,WAIT: 
GOSUB 30: 

NEXT ME 
370 READ CHORD, P, WAIT: 

GOSUB 40: 

GOSUB 60: 

WAIT=10: 

GOSUB 50 
330 READ LINE*, CHORD, P, WAIT; 

? LINE*: 
GOSUB 40 
390 READ P.WAIT: 

GOSUB 30 
400 READ CHORD, P, WAIT: 

GOSUB 40 
410 READ P,WAIT: 

GOSUB 30 
420 READ CHORD, P, WAIT: 

GOSUB 40 
430 READ F.WAIT: 

GOSUB 30 
440 READ CHORD, P, WAIT: 

GOSUB 40 
450 GOSUB 60: 
WAIT=10: 
GOSUB 50: 

FOR DECAV=i5 TO STEP -0.5: 
SOUND VO, Nil), 10, DECAY: 
NEXT DECAY 
460 GRAPHICS 18: 
? 16: 

? 16;" major chords 8 
510 FOR HE=i TO 8: 

READ CHORD, P, LINE*: 
POSITION HEI2, JO-HE: 
? *6;LINEi: 
GOSUB 70: 
NEXT ME 
530 FOR ME=8 TO 1 STEP -i: 
READ CHORD, P, LINE*: 
POSITION ME*2,10-ME: 
? 16; LINE*: 
GOSUB 70: 
NEXT ME 
540 WAIT=15: 
GOSUB 50: 
POSITION 4,11: 
? #6; "PRESS" 
550 FOR DECAY=15 TO STEF -0,5: 
SOUND V0,N(6),10,DECAY: 
NEXT DECAY 
560 WAIT=15: 
GOSUB 50: 
POSITION 10,11: 
? 16; "START" 



570 FOR DECAYS TO STEP -0,5: 
SOUND VO,N(i), 10, DECAY: 
NEXT DECAY 



600 


SETCOLOR 0,PEEKUO),1U: 
IF PEEK (53279) <>6 THEN 600 


700 


GRAPHICS 18: 




SETCOLOR 0,1,10: 




SETCOLOR 1,11,12: 




SETCOLOR 3,4,12 


710 


? 16: 




? 16: 




7 16;" PRESS option 1 : 




?»6;" TO RERUN" 


720 


WAIT=60: 




GOSUB 50 


730 


? 16: 




7 16;" PRESS start": 




7 #6;" TO CONTINUE" 


740 


IF PEEK(53279)=3 THEN 




RUN 


750 


IF PEEK (53279) =6 THEN 900 


760 


GOTO 740 


900 


RUN "D:50UND.4" 


1000 


DATA DOE A DEER A FEMALE DEER 


1010 


DATA 49,37,45,35,15,33,45,37,15,33,30,37,30,33,45 


1020 


DATA RAY A DROP OF GOLDEN SUN 


1030 


DATA 42, 35, 45, 33, 15, 32, 15, 32, 15, 33, 15,35,15,32,90 


1040 


DATA ME A NAME I CALL MYSELF 


1050 


DATA 49,33,45,32,15,30,45,33,15,30,30,33,30,30,45 


1060 


DATA FA ; A LONG LONG WAY TO RUN 


1070 


DATA 44,32,45,30,15,28,15,28,15,30,15,32,15,28,90 


1080 


DATA SEW A NEEDLE PULLING THREAD 


1090 


DATA 49,30,45,37,15,35,15,33,15,32,15,30,15,44,28,90 


1100 


DATA LA A NOTE TO FOLLOW SEW 


1110 


DATA 44,28,45,35,15,33,15,31,15,30,15,28,15,42,26,90 


1120 


DATA TEA A DRINK WITH JAM AND BREAD 


1130 


DATA 42,26,45,33,15,31,15,29,15,28,15,26,15,49,25,90 


1140 


DATA THAT WILL BRING US BACK TO DOE 


1150 


DATA 49,25,15,26,15 


H60 


DATA 44,28,30,32,30 


i i 70 


DATA 42,26.30,30,30 


11 BO 


DATA 49,25,90 


1200 


DATA 49,37,C 


1210 


DATA 47,35, D 


1220 


DATA 45,33,E 


1230 


DATA 44,32,F 


1240 


DATA 42,30,6 SETCOLOR 2,9,0: 


1250 


DATA 40,28,A SETCOLOR 4,9,0: 


1260 


DATA 38,26,8 SETCOLOR 1,9,12: 


1270 


DATA 37,25,C POKE 752,1: 


1300 


DATA 37,25,c POKE 82,2: 


1310 


DATA 3B,26,b POKE 83,39: 


1320 


DATA 40, 28, a POKE 201,7 


1330 


DATA 42,30,g 21010 7 " »s 


1340 


DATA 44,32, t ? ,"QRRRRRRRRRRRRRRE " 


1350 


DATA 45,33,6 2102 ° ? >" ! MAJ O ft Cl ™ HARMONY !" 


1360 


DATA 47,35. d 21030 ? , "ZRRRRRRRRRRRRRRC " 


1370 


DATA 49,37,i: 21040 POKE 77,0: 


1000 


GRAPHICS 0: RETURN 
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NOTE # 


P I TCH 


MUSICAL 


NO 


1 


14 




C 




2 


15 




B 




3 


16 


A# 


or 


Bb 


4 


17 




A 




5 


18 


G+F 


or 


Ab 


6 


19 




G 




7 


21 


F# 


or 


Gb 


£3 






F 




9 


23 




E 




10 


24 


D# 


or 


Eb 


11 


26 




D 




12 


27 


C# 


or 


Db 


13 


29 




C 




14 


31 




B 




15 


0> si' 1 


A# 


or 


Bb 


16 






A 




17 


37 


G# 


or 


Ab 


18 


40 




G 




19 


42 


F# 


or 


Gb 


20 


45 




F 




21 


47 




E 




22 


50 


D# 


or 


Eb 


23 


53 




D 




24 


57 


C# 


or 


Db 


25 


60 




C 




26 


64 




B 




27 


68 


A# 


or 


Bb 


28 


72 




A 




29 


76 


G# 


or 


Ab 


30 


81 




G 




31 


85 


F# 


or 


Gb 


32 


91 




F 




33 


96 




E 




34 


102 


D# 


or 


Eb 


35 


108 




D 




36 


114 


C# 


or 


Db 


37 


121 




C 




38 


128 




B 




39 


136 


A# 


or 


Bb 


40 


144 




A 




41 


153 


Gtt 


or 


Ab 


42 


162 




G 




43 


173 


F# 


or 


Gb 


44 


182 




F 




45 


193 




E 




46 


204 


D# 


or 


Eb 


47 


217 




D 




48 


230 


Ctt 


or 


Db 


49 


243 




C 




50 


ncrcr 




B 





*> 
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S0UND.6 BASIC SOUND EFFECTS BY JERRY WHITE PA6E 1 

REM SQUND.6 (c) 1981 by Jerry White 11/9/81 

10 V0=0:V1=1:V2=2:V3=3:P0KE 82,2:P0KE 83,39:60T0 2000 

SO POKE 540, WAIT 

52 IF PEEK<540)<>0 THEN 52 

54 FOR OFF=0 TO 3:S0UND OFF,0,0,0:NEXT OFF:RETURN 

89 REN 

90 REM ttt MACHINE GUN ttt 

91 REN 

100 FOR SH0T=1 TO 12:F0R VQL=15 TO STEP -5:S0UND VO, 80,0, VOL: SOUND VI, 60,0, VOL 
110 SOUND V2,200,4,V0L:S0UND V3, 10,4, VOLsNEXT V0L:60SUB 54:NEXT SHOT 
120 RETURN 

189 REN 

190 REN ttt SURF /HAVES ttt 

191 REN 

200 FOR P0=10 TO 2 STEP -0. 02 :V0L=P0/2; SOUND VQ,PO,B, VOL: SOUND V1,P0+1,8,V0L 

210 SOUND V2,P0+2,B,VQL:S0UND V3,RND(0)t3,8,V0L 

220 FOR P0=3 TO 12 STEP 0.02:V0L=P0/2:S0UND V0,P0,8,V0L:S0UND V1,P0+1,8,V0L 

230 SOUND V2,P0+2,8,V0L:SOUND V3,RND(0)t3,8,V0L:NEXT PO 

240 FOR P0=10 TO 2 STEP -0. 02: V0L=P0/2: SOUND V0,P0,8,V0L:S0UND V1,P0+1,8,V0L 

250 SOUND V2,P0+2,8,V0L:S0UND V3,RND(0)t3,8,V0L:NEXT P0:60SUB 54:RETURN 

289 REN 

290 REN ttt LAZERS/PHOTONS ttt 

291 REN 

300 FOR SH0T=1 TO 6: FOR P0=0 TO 200 STEP 10 

310 SOUND V0,P0, 0,8: SOUND VI, PO, 10, 8: SOUND V2,P0,12,8:S0UND V3,P0,4,8 

320 NEXT P0:NEXT SH0T:80SUB 54:RETURN 

389 REN 

390 REN ttt POLICE/FIRE SIREN ttt 

391 REN 

400 FOR P0=200 TO 50 STEP -1:S0UND VO,P0,10,8:SOUND V1,P0+2,10,6:S0UND V2,P0+4,10,2:S0UND V3,P0+6,10,2:NEXT PO 
420 FOR P0=50 TO 160 STEP 0.2:S0UND V0,P0,10,8:S0UND V1,P0+2,10,6:S0UND V2,P0+4,10,4:SQUND V3,P0+6,10,2:NEXT PO 
430 GOSUB 54: RETURN 

489 REN 

490 REN ttt AIR RAID SIREN ttt 

491 REN 

500 FOR L00P=1 TO 6:F0R P0=1 TO 20:S0UND V0,80+P0,12,8:NEXT PO 

510 SOUND VO, 80, 10, 12: SOUND VI ? 100, 10, 12: SOUND V2, 13,4, 12 

520 WAIT=30:6QSUB 50:NEXT LOOP 

530 FOR V=12 TO STEP -0.1:S0UND VO,(20-V)tlO,10,V:SOUND Vl,(20-V)tl0+20,10,V:S0UND V2,13,4,V:NEXT V 

540 GOSUB 54: RETURN 

589 REN 

590 REN ttt TELEPHONE RINGING ttt 

591 REN 

600 FOR RIN6=1 TO 2.-F0R L0UD=1 TO 35:S0UND V0,20,10,8:S0UND VI, 1,2,8 

610 FOR L00P=1 TO 2:S0UND V0,25,10,8:S0UND V1,0,2,8:NEXT LOOP:SOUND VO, 0,0,0: SOUND V1,0,0,0:NEXT LOUD 

620 FOR V=7 TO STEP -0.2:SOUND V0,20,10,V:S0UND V1,0,2,V:NEXT V 

630 HAIT=90:60SUB 50:NEXT RIN6:60SUB 54:RETURN 

689 REN 

690 REN ttt WHISTLING BOHB ttt 

691 REN 

700 FOR P0=0 TO 150:S0UND 0,P0,10,P0/15+2:NEXT PO 

710 FOR P0=0 TO 240 STEP 5:V0L=14-P0/20:SOUND VO,PO,0, VOL: SOUND V1,P0,8,V0L 

720 SOUND V2,P0+15,2, VOLsNEXT PO:GOSUB 54:RETURN 

789 REN 

790 REN ttt SPACE SHIP ttt 

791 REN 

800 SOUND V2,0,8,2:F0R V0L=1 TO 15 STEP 0.1:S0UND VO, 25, 4, VOL: SOUND V1,13,4,V0L:NEXT VOL 
810 FOR V0L=14 TO STEP -0.1:S0UND VO, 25, 4, VOL: SOUND V1,13,4,V0L:NEXT VOL 
820 60SUB 54: RETURN 
889 REN 



SOUIME> 



If you have run the -first 6 programs in this package, 
you should now have a good background -for using the Atari 
Basic SOUND command. The SOUND. 5 program gave you some 
idea of what you can do by quickly changing the values of 
SOUND command variables. The SOUND. 6 program demonstrated 
sound effects and hopefully you are now thinking about 
creating some of your own sound effect routines. 

This machine has truly amazing sound capabilities. 
Believe i t or not, the SOUND command is not the best way 
to create sound effects. Using machine language speed is 
one way to get sounds that. Basic is just too slow to 
create. But you don't need machine language to get more 
sounds from this computer. 

Some truly amazing sounds can be created using the 
POKE command. SOUND. 7 lets you experiment with POKEs by 
using your joystick plugged into the first port. 

I'll give you more information on these POKE 
locations later but first let me explain how to use the 
SOUND. 7 program. You can read the technical stuff later. 

The numbers 53760 thru 53768 are displayed on the 
screen. A greater than < > ) symbol should appear next to 
the top number. Move that > down to the number 53768 by 
pulling back on the joystick. This is how we select the 
location we wish to POKE. Once the points to the 
desired location, press the trigger button. The location 
number should turn blue. 

Now push up on the joystick to make the number to be 
poked into location 53768,80. Push up to make the number 
higher and pull down to make the number lower. Once you 
have the number 80 next to the 53768, press the trigger 
button. This will cause the 53768 to go back to it's 
original yellow color and the > to return to it's original 
position next to the 53760. 

No sound? Not yet, be patient. Now lets change the 
POKE for location 53760. Since the > is already in 
position, just press the trigger and that top number 
should turn blue. Use your joystick to make the poke 
53760,10, then press the trigger. 

Still no sound? Boy are you impatient. O.K. Move 
the > to location 53761 and press the trigger. Now change 
the poke to that location randomly. SOUND!!! It's about 
time. Now it's time to experiment. That location at the 
screen bottom is the key. Try changing it to 83, 85, and 
other numbers between and 255. Then go back and change 
those top two locations. 



What about 53762 thru 53767? Go ahead, do what you 
want. You can't hurt anything but you might drive some 
people crazy if the volume on your TV is too high. 

To exit this program, just press any key on the 
keyboard. This is also a good way to shut off the sounds 
and start over by giving the RUN command. 

Be-fore using these POKE locations in Basic, there are 
two things you must know. The POKEY chip must -first be 
initialized. This is accomplished with a simple SOUND 
0,0,0,0 command and should be done at the beginning o-f 
your program. 

These locations or sound registers are write only. 
For sound, you can POKE into these locations but PEEKing 
will not re-flect the value you just poked. Con-fusing? 
You've got that right! The main thing is that you can 
create sounds using experimental POKEs without 
understanding what's happening or why. 

For a detailed more explanation of these registers 

and other SOUND information, I'd strongly suggest you read 

the SOUND chapter in De Re Atari. This book is scheduled 
to be available from APEX. 



LOCATION DESCRIPTION 



53760 Voice Frequency 

53761 Voice Control 

53762 Voice 1 Frequency 

53763 Voice 1 Control 

53764 Voice 2 Frequency 

53765 Voice 2 Control 

53766 Voice 3 Frequency 

53767 Voice 3 Control 

53768 Audio Control 



S0UND.6 BASIC SOUND EFFECTS BY JERRY WHITE PA6E 2 

890 REH lf» SPACE ECHO ttl 

891 REH 

900 FOR V0L=15 TO STEP -0.2:F0R P0=0 TO 5:S0UHD V0,P0,2,VOL»SOUND V1,P0+1,2,V0L:NEXT PO 
910 FOR Pl=VOLtl0 TO VOL STEP -IOsSOUND V0,P1,10,V0L:S0UND V1,P1+V0L, 10,V0L:NEXT PhNEXT VOL 
920 RETURN 

989 REH 

990 REH *!! DOOR BELL ttt 

991 REH 

1000 FOR V0L=15 TO STEP -0.5:S0UND V0,29,10,V0L:S0UND V1,30,10,V0L:NEXT VOL 
1010 FOR V0L=15 TO STEP -0.5:S0UND V0,35,10,V0L:S0UND VI, 36, 10, VOL: NEXT VOL 
1020 RETURN 

1999 STOP 

2000 REH ttt HENU OPTIONS ttt 

2010 GRAPHICS O-.SETCOLOR 2,15,0:P0KE 752,1:P0KE 201,10:? 

2020 ? , "Q^IJRRIjRRRRRRRRRK" 

2030 ? ,", SOUND EFFECTS 1" 

2040 ? , " ?PPPPPPPPPPPPPPPC" : POKE 201,9:? 

2100 ? ," (1> HACHINE 6UN" 

2110 ? ,' <2> SURF HAVES" 

2120 ? ," <3> LAZER FIRE" 

2130 ? ," <4> POLICE SIREN* 

2140 ? ," <5> AIR RAID SIREN" 

2150 ? ," <6> TELEPHONE RIN6IN6" 

2160 ? ," <7> NHISTLIN6 BOMB" 

2170 ? ," <8> SPACE SHIP" 

2180 ? ," <9> SPACE ECHO" 

2190 ? ,M0> DOOR BELL" 

2500 ? ,"<11> RUN LAST PR06RAH" 

3000 POKE 53279,0:? :? ," CHOICE'; :TRAP 9000:INPUT CHOICE:TRAP 40000 

3010 CHOICE=INT(CH0ICE):IF CHOICEU OR CH0ICEM1 THEN 9000 

3020 IF CH0ICE=11 THEN RUN "D:S0UND.7" 

3030 GRAPHICS 0:SETCOLOR 2, CHOICE, 0:? :? :? :? :LIST CHQICEtlOO-10,CHQICEtlOO+80 

3040 GOSUB CHOICEtlOO:? :? :? " PRESS ANY KEY FOR OPTIONS"; :POKE 764,255 

3050 IF PEEK<764)=255 THEN 3050 

3060 POKE 764, 255: GOTO 2000 

9000 RUN 



******************************* 

*** SOUND. 7 (SOUND EDITOR) *** 
*** (c) 1981 by Jerry White *** 
******************************* 



100 


GOTO 10000 


500 


POSITION 1,0: 




FOR HE=0 TO 8: 




POSITION 6,ME+2: 




? i6;53760+ME;"= = ;NiME);' 




NEXT ME 


600 


? 16;" select location ' 


700 


POSITION 5,2: 




7 16; "1" : 




Y=2 


720 


S=STICKi0i: 




IF S=14 AND Y)2 THEN 




POSITION 5,Y: 




? 16;" ": 




Y=Y-1: 




POSITION 5,Y: 




? I6;CHR$(30): 




G0SUB 3000 


730 


IF PEEK (764)0255 THEN 12000 


740 


IF 3=13 AND Y<10 THEN 




POSITION 5,Y: 




" 16;" ": 




Y=¥+l: 




POSITION 5,Y: 




7 §6;CHR$i30>: 




GOSUB 3000 


760 


IF STRIG(0)=1 THEN 720 


eoo 


3C=Y-2 


900 


POSITION 0,11: 




? 16;" release trigger " 


1000 


IF STRIG(0)=0 THEN 1000 


1010 


POSITION 5,Y: 




? #6; " " 


1020 


P=53760+GC: 




L$=STR$(P): 




FOR ME=1 TO 5: 




IT=ASC(L*(ME,ME)): 




IT=IT+128: 




L$(ME,ME)=CHR$(IT): 




NEXT ME 


1030 


POSITION 6,Y: 




? #6;L$ 


1040 


POSITION 0,11: 




? 16;" change poke " 


2000 


S=STICK!0>: 




IF S=14 AND N(GC)<255 THEN 




N(GC)=N(GC)+i 


2020 


IF PEEK (764) 0255 THEN 12000 


2100 


IF 3=13 AND N(GC))0 THEN 




N(GC)=N(6C)-1 


2200 


POKE P,NiGC): 




POSITION 12, Y: 




? #6;N(SC);" " 


2300 


IF STR1G(0)=1 THEN 2000 


2*00 


POKE 65,0: 



GOTO 500 
3000 FOR ME=1 TO 10: 
POKE 53279,0: 
POKE 53279,8: 

NEXT ME: 

RETURN 
10000 GRAPHICS 18: 

DIM N(8),L*(5): 

SOUND 0,0,0,0: 

POKE 710,154: 

POKE 709,204 
10100 ? 16;" SOUND EDITOR": 

: | 6 j« ttmmtm*: 

POKE 764,255 
UOOO FOR ME=0 TO S: 
N(ME)=0: 

NEXT ME: 

CLOSE tii 

OPEN li,4,0, 8 K:"s 

GOTO 500 
12000 GRAPHICS 0: 

LIST : 

? ''END OF SOUND TUTORIAL BY JERRY WHITE. 



END 
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Educational Software's 
DBPLAY LOTS TRICKY TUTORIAL II 



r'£* 






FOB ATARI* 1SK COMPUTER 
Uae *RUH:C To Load 



Educational Software's 
HORZ/VERT SCROLL Tricky Tutorial #2 

FOR ATARI™ 16K COMPUTER 

Us* 'RUH:C* To Load 



* 



^«>JcationBlSoft wg re's" 
AGE FLIPPING TTITCKY TUTORIAL n 







: oft rnwcp" f 



U 



FOIL HIHKP mrerjwK 

Use 'RUN:C' To \m,<\ 




PLAYER MISSILE GRAPHICS T.T. #5 

/a 



Pw Alan" 3JK compute 
U*e 'RUNzC To Load 
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